CHAR return zero on no input

diff --git a/forth/core.fth b/forth/core.fth
index 4ab67211af93e0c4e377e690b5523dc83eb06d62..d198583a96ee1dc2dbe527a1921ab28c07e5c456 100644 (file)
--- 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