From 80c0fad017f2aba4ec66f32793495d6d607fb8a7 Mon Sep 17 00:00:00 2001
From: Clyne Sullivan <clyne@bitgloo.com>
Date: Sun, 26 Jan 2025 20:49:26 -0500
Subject: [PATCH] emit

---
 foci.c | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/foci.c b/foci.c
index 60c4fca..c466460 100644
--- a/foci.c
+++ b/foci.c
@@ -145,8 +145,9 @@ I(ctick,  "[\']",   &w_tick)    FTH(tick), FTH(literal), END
 N(execute, "execute", &w_ctick) { pp = (intptr_t **)*sp++ - 1; NEXT; }
 W(decimal, "decimal", &w_execute) LIT(10), LIT(&BASE), poke, END
 W(hex,     "hex",    &w_decimal) LIT(16), LIT(&BASE), poke, END
-N(dot,    ".",      &w_hex) ;
-#define LATEST_INIT &w_dot
+N(dot,    ".",      &w_hex)     ;
+N(emit,   "emit",   &w_dot)     { foci_putchar(*sp++); NEXT; }
+#define LATEST_INIT &w_emit
 
 void enter_forth(void *ptr)
 {