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 : hello "Hi" print ; parsing
8 : parse-interactive ( string -- quot )
9 <string-reader> stream-read-quot ;
13 "USE: listener.tests hello" parse-interactive
25 "\\ + 1 2 3 4" parse-interactive
26 "cont" get continue-with
28 "USE: debugger :1" eval
35 "vocabs.loader.test.c" forget-vocab
36 ] with-compilation-unit
41 "USE: vocabs.loader.test.c" parse-interactive
47 "vocabs.loader.test.c" forget-vocab
48 ] with-compilation-unit
53 "IN: listener.tests : hello\n\"world\" ;" parse-interactive