cdo/wipforth
1
0 Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fix EMIT-DIGIT

Browse Source
This commit is contained in:
cdo committed 2026-03-02 15:52:59 +00:00
1 parent c1a3e86222
commit 67b67c2505
1 file changed
+1 -1
Download Patch File Download Diff File Expand all files Collapse all files
prelude.f
+1 -1
View File
@@ -88,7 +88,7 @@
; IMMEDIATE
: EMIT-DIGIT
DUP 10 < IF CHAR 0 ELSE CHAR A THEN
DUP 10 < IF CHAR 0 ELSE 10 - CHAR A THEN
+ EMIT
;