Mailing List Archive: 49091 messages
  • Home
  • Script library
  • AltME Archive
  • Mailing list
  • Articles Index
  • Site search

[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 ]