REBOL Programming/what

USAGE:

WHAT 

DESCRIPTION:

Prints a list of globally-defined functions.

WHAT is a function value.

SOURCE CODE

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
]