--- gforth/Attic/engine.c	1996/04/17 16:39:40	1.37
+++ gforth/Attic/engine.c	1997/02/06 21:22:58	1.39
@@ -56,20 +56,6 @@ typedef struct F83Name {
 #define F83NAME_SMUDGE(np)	(((np)->countetc & 0x40) != 0)
 #define F83NAME_IMMEDIATE(np)	(((np)->countetc & 0x20) != 0)
 
-#ifdef USE_TOS
-#define IF_TOS(x) x
-#else
-#define IF_TOS(x)
-#define TOS (sp[0])
-#endif
-
-#ifdef USE_FTOS
-#define IF_FTOS(x) x
-#else
-#define IF_FTOS(x)
-#define FTOS (fp[0])
-#endif
-
 Cell *SP;
 Float *FP;
 #if 0
@@ -124,7 +110,7 @@ char *tilde_cstr(Char *from, UCell size,
     s2 = from+1;
     s2_len = size-1;
   } else {
-    int i;
+    UCell i;
     for (i=1; i<size && from[i]!='/'; i++)
       ;
     {