1 USING: io io.streams.string io.streams.duplex listener
2 tools.test parser math namespaces continuations vocabs kernel
3 compiler.units eval vocabs.parser ;
6 SYNTAX: hello "Hi" print ;
8 : parse-interactive ( string -- quot )
9 <string-reader> stream-read-quot ;
13 "USE: listener.tests hello" parse-interactive
23 "\\ + 1 2 3 4" parse-interactive
24 "cont" get continue-with
26 "USE: debugger :1" eval( -- quot )
33 "vocabs.loader.test.c" forget-vocab
34 ] with-compilation-unit
39 "USE: vocabs.loader.test.c" parse-interactive
45 "vocabs.loader.test.c" forget-vocab
46 ] with-compilation-unit
51 "IN: listener.tests : hello ( -- string )\n\"world\" ;" parse-interactive