CHAR return zero on no input

tcsullivan · Nov 13, 2023 · 5162349 · 5162349
1 parent f21da69
commit 5162349
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/forth/core.fth b/forth/core.fth
@@ -146,7 +146,7 @@
            2dup <> while rot repeat
            2drop here - here c! here ;
 : count    dup char+ swap c@ ;
-: char     bl word char+ c@ ;
+: char     0 here char+ c! bl word char+ c@ ;
 : [char]   char postpone literal ; imm
 
 : (        begin [char] ) key <> while repeat ; imm