From 6d868e91f9685fd2ce44fd854b748619ee34850d Mon Sep 17 00:00:00 2001 From: kitty Date: Thu, 5 Mar 2026 18:52:14 +1100 Subject: set #tib to zero on empty line --- jefs.fs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'jefs.fs') 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 ; -- cgit v1.2.3