--- gforth/prims2x.fs	1994/05/18 17:29:59	1.2
+++ gforth/prims2x.fs	1994/08/25 15:25:33	1.6
@@ -19,8 +19,10 @@
 \ regarding problem 1 above: It would be better (for over) to implement
 \ 	the alternative
 
+warnings off
+
+[IFUNDEF] vocabulary  include search-order.fs [THEN]
 include gray.fs
-include search-order.fs
 
 100 constant max-effect \ number of things on one side of a stack effect
 4096 constant batch-size \ no meaning, just make sure it's >0
@@ -87,7 +89,7 @@ variable effect-out-end ( pointer )
 2variable effect-in-size
 2variable effect-out-size
 
-variable primitive-number -8 primitive-number !
+variable primitive-number -9 primitive-number !
 
 \ for several reasons stack items of a word are stored in a wordlist
 \ since neither forget nor marker are implemented yet, we make a new
@@ -195,7 +197,9 @@ nowhite ++
 
 (( (( primitive {{ printprim }} )) **  eof ))
 parser primitives2something
+warnings @ [IF]
 .( parser generated ok ) cr
+[THEN]
 
 : primfilter ( file-id xt -- )
 \ fileid is for the input file, xt ( -- ) is for the output word
@@ -537,5 +541,7 @@ set-current
  if
    ." cannot open file" cr abort
  endif
- ." ------------ CUT HERE -------------" cr
+ warnings @ if
+ ." ------------ CUT HERE -------------" cr  endif
  r> primfilter ;
+