1 ! Copyright (c) 2008 Slava Pestov
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: accessors words kernel sequences splitting ;
6 : word>string ( word -- string )
7 [ vocabulary>> ] [ name>> ] bi ":" swap 3append ;
9 : words>strings ( seq -- seq' )
12 ERROR: no-such-word name vocab ;
14 : string>word ( string -- word )
15 ":" split1 swap 2dup lookup dup
16 [ 2nip ] [ drop no-such-word ] if ;
18 : strings>words ( seq -- seq' )