emit

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)
 {