6 lines
197 B
Factor
6 lines
197 B
Factor
|
USING: splay-trees namespaces sequences kernel namespaces words ;
|
||
|
|
|
||
|
|
<splay-tree> "foo" set
|
||
|
|
all-words [ dup word-name "foo" get set-splay ] each
|
||
|
|
all-words [ word-name "foo" get get-splay drop ] each
|