neuttower/repl.jor

7 lines
176 B
Plaintext
Executable file

: 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