CHAR return zero on no input

1 year ago · 5162349f92
parent f21da699e5
commit 5162349f92
1 changed files with 1 additions and 1 deletions
--- 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