--- gforth/chains.fs	1997/07/06 14:15:10	1.1
+++ gforth/chains.fs	1998/07/05 20:49:58	1.2
@@ -16,6 +16,13 @@ You can add a word to the list with "' m
 execute all the code with "foo8 chainperform".
 [THEN]
 
+has? cross 
+[IF]   e? compiler
+[ELSE] true
+[THEN]
+
+[IF] \ only needed with compiler
+
 [IFUNDEF] linked
 : linked        here over @ a, swap ! ;
 [THEN]
@@ -25,6 +32,8 @@ execute all the code with "foo8 chainper
 : chained 	( xt list -- ) \ gforth
   linked , ;
 
+[THEN]
+
 : chainperform	( list -- ) \ gforth
   BEGIN @ dup WHILE dup cell+ perform REPEAT drop ;