Prints a list of globally-defined functions.
WHAT is a function value.
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 ]Last modified on 13 November 2012, at 10:42