Hi PeO,
... or you could use query ...
> query/clear system/words
== [end! unset! error! datatype! context! native! action! routine! op! function!
object! struct! library! port! any-type! any-word!...
>> f: func [][a: 1]
>> query system/words
== [f]
>> f
== 1
>> query system/words
== [f a]
>>
Thanks Larry, after some time of more experimenting, I also got it working
using the part from rebdoc.r (using if not unset? first vals ..), but your
routine was more clean and compact.
Maybe just a
word-list: make block! 500
in the beginning may speed it up, even if it's not slow..
If I'm no
Hi PeO
This works:
>> words-with-vals: has [word-list][
word-list: copy []
foreach word first rebol/words [
if not error? try [get in rebol/words :word][append word-list word]
]
word-list
]
>> wv: words-with-vals
== [unset! error! datatype! native! action! routine! op! f