diff options
Diffstat (limited to 'forth/core.fth')
| -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 |