[jackhill/mal.git] / forth / step0_repl.fs

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
Commit	Line	Data
59038a10	1	require types.fs
ccc7d9d1 C	2
	3	: read ;
	4	: eval ;
	5	: print ;
	6
	7	: rep
	8	read
	9	eval
	10	print ;
	11
	12	create buff 128 allot
	13
	14	: read-lines
	15	begin
	16	." user> "
	17	buff 128 stdin read-line throw
	18	while
	19	buff swap
	20	rep type cr
	21	repeat ;
	22
	23	read-lines