an interpreter!!!!!!!!!!!

aaaaaaaaaaaaaaaaaaaa

1 files changed, 3 insertions, 4 deletions

diff --git a/jefs.fs b/jefs.fs
index f211395..f26a8af 100644
--- a/jefs.fs
+++ b/jefs.fs
@@ -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