--- gforth/engine/io.c	2006/12/31 13:39:17	1.25
+++ gforth/engine/io.c	2007/04/09 22:36:01	1.26
@@ -654,6 +654,18 @@ Cell getkey(FILE * stream)
   return result==0 ? EOF : c;
 }
 
+#ifdef STANDALONE
+void emit_char(char x)
+{
+  putc(x, stdout);
+}
+
+void type_chars(char *addr, unsigned int l)
+{
+  fwrite(addr, l, 1, stdout);
+}
+#endif
+
 #ifdef TEST
 
 #include <time.h>