From 67b67c25051b3ff084f1b89bff5ee20c4fb10792 Mon Sep 17 00:00:00 2001
From: Camden Dixie O'Brien <cdo@wip.sh>
Date: Mon, 2 Mar 2026 15:49:04 +0000
Subject: [PATCH] Fix EMIT-DIGIT

---
 prelude.f | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/prelude.f b/prelude.f
index 5a49cc3..cbabfce 100644
--- 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
 ;