7 lines
176 B
Plaintext
7 lines
176 B
Plaintext
|
: start-repl activate ' putc task-emit !
|
||
|
s" .:: J O R T H ( jean forth) ::." type cr
|
||
|
begin receive loadstring s" ok" type cr again ;
|
||
|
task const REPL
|
||
|
REPL start-repl
|
||
|
|