diff options
| -rw-r--r-- | jefs.fs | 7 |
1 files changed, 3 insertions, 4 deletions
@@ -346,10 +346,11 @@ hide truncate-(accept-n) 2048 constant line-buffer-length make line-buffer line-buffer-length allot -\ todo source-id : refill ( -- ? ) source-id 0< if false [ ret, ] then 0 >in ! line-buffer tib ! line-buffer line-buffer-length accept 0= if ?dup if false [ ret, ] then then #tib ! true ; + +: quit 0 to source-id [compile] [ begin refill while interpret ." ok" cr repeat ; \ }}} : (evaluate) ( c-addr u -- ) 0 >in ! ( u ) #tib ! ( c-addr ) tib ! @@ -357,7 +358,5 @@ make line-buffer line-buffer-length allot : evaluate ( c-addr u -- ) tib @ >r #tib @ >r >in @ >r (evaluate) r> >in ! r> #tib ! r> tib ! ; .free -\ make testb 10 allot -\ testb 10 accept .s -words +quit bye bye |