From 5162349f925dfc48f7269538b9cdb1c06df8d5ff Mon Sep 17 00:00:00 2001
From: Clyne Sullivan <clyne@bitgloo.com>
Date: Mon, 13 Nov 2023 09:07:14 -0500
Subject: [PATCH] CHAR return zero on no input

---
 forth/core.fth | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/forth/core.fth b/forth/core.fth
index 4ab6721..d198583 100644
--- 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