1
1
mirror of https://github.com/kanaka/mal.git synced 2024-11-13 11:23:59 +03:00
mal/forth/step0_repl.fs

23 lines
252 B
Forth

require types.fs
: read ;
: eval ;
: print ;
: rep
read
eval
print ;
create buff 128 allot
: read-lines
begin
." user> "
buff 128 stdin read-line throw
while
buff swap
rep type cr
repeat ;
read-lines