Fix EMIT-DIGIT

2026-03-02 15:49:04 +00:00
parent c1a3e86222
commit 67b67c2505
1 changed files with 1 additions and 1 deletions
--- a/prelude.f
+++ b/prelude.f
@@ -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
 ;