summaryrefslogtreecommitdiff
path: root/jefs.fs
diff options
context:
space:
mode:
Diffstat (limited to 'jefs.fs')
-rw-r--r--jefs.fs2
1 files changed, 1 insertions, 1 deletions
diff --git a/jefs.fs b/jefs.fs
index b568fd0..d2943f9 100644
--- a/jefs.fs
+++ b/jefs.fs
@@ -354,7 +354,7 @@ make line-buffer line-buffer-length allot
\ seem to be having issues with old words being interpreted
: refill ( -- ? ) source-id 0< if false [ ret, ] then
0 >in ! line-buffer tib ! line-buffer line-buffer-length accept
- 0= if ?dup 0= if false [ ret, ] then then #tib ! true ;
+ 0= if dup 0= if #tib ! false [ ret, ] then then #tib ! true ;
\ bug: C-d causes stack underflow
: quit 0 to source-id [compile] [ begin refill while interpret ." ok" cr repeat ;