diff options
| author | Clyne Sullivan <clyne@bitgloo.com> | 2023-11-13 09:07:14 -0500 |
|---|---|---|
| committer | Clyne Sullivan <clyne@bitgloo.com> | 2023-11-13 09:07:14 -0500 |
| commit | 5162349f925dfc48f7269538b9cdb1c06df8d5ff (patch) | |
| tree | 2fdaae3753707e637f3c0643bdda9db8cff74877 | |
| parent | f21da699e53fb14540bccda991a27ec3858e44a0 (diff) | |
CHAR return zero on no input
| -rw-r--r-- | forth/core.fth | 2 |
1 files changed, 1 insertions, 1 deletions
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 |