1 USING: compiler.units continuations definitions eval io
2 io.streams.string kernel listener listener.private math namespaces
3 parser parser.notes tools.test vocabs vocabs.parser words ;
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
56 [ "call" "scratchpad" create-word drop ] with-compilation-unit
61 "call" "scratchpad" lookup-word
62 [ "call" search ] with-interactive-vocabs
67 [ "call" "scratchpad" lookup-word forget ] with-compilation-unit
73 { } listener-step drop