--- gforth/engine/forth.h	2003/01/07 22:38:36	1.42
+++ gforth/engine/forth.h	2003/01/08 10:25:34	1.43
@@ -157,8 +157,6 @@ typedef Label *Xt;
 
 
 
-#define DOES_CODE(cfa)	({Xt _cfa=(Xt)(cfa); \
-			  (Xt *)(_cfa[0]==DOES_CA ? _cfa[1] : NULL);})
 #define DOES_CODE1(cfa)	((Xt *)(cfa[1]))
 /* MAKE_CF creates an appropriate code field at the cfa;
    ca is the code address */