[REBOL] Getting Rebol Word List Re:(4)
From: doug:vos:eds at: 7-Aug-2000 16:18
You can also modify "what" to make a new function that
does what-you-want.
>> source what
what: func [
"Prints a list of globally-defined functions."
/local vals args here total
][
total: copy []
vals: second system/words
foreach word first system/words [
if any-function? first vals [
args: first first vals
if here: find args /local [args: copy/part args here]
append total reduce [word mold args]
]
vals: next vals
]
foreach [word args] sort/skip total 2 [print [word args]]
exit
]
