mirror of
https://github.com/kanaka/mal.git
synced 2024-09-20 10:07:45 +03:00
23 lines
252 B
Forth
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 |