emit

foci.c

@@ -146,7 +146,8 @@ 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(emit,   "emit",   &w_dot)     { foci_putchar(*sp++); NEXT; }
+#define LATEST_INIT &w_emit
 
 void enter_forth(void *ptr)
 {