Diff for /gforth/prims2x.fs between versions 1.2 and 1.5

version 1.2, 1994/05/18 17:29:59 version 1.5, 1994/07/21 10:52:49
Line 19 Line 19
 \ regarding problem 1 above: It would be better (for over) to implement  \ regarding problem 1 above: It would be better (for over) to implement
 \       the alternative  \       the alternative
   
   warnings off
   
   [IFUNDEF] vocabulary  include search-order.fs [THEN]
 include gray.fs  include gray.fs
 include search-order.fs  
   
 100 constant max-effect \ number of things on one side of a stack effect  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  4096 constant batch-size \ no meaning, just make sure it's >0
Line 195  nowhite ++ Line 197  nowhite ++
   
 (( (( primitive {{ printprim }} )) **  eof ))  (( (( primitive {{ printprim }} )) **  eof ))
 parser primitives2something  parser primitives2something
   warnings @ [IF]
 .( parser generated ok ) cr  .( parser generated ok ) cr
   [THEN]
   
 : primfilter ( file-id xt -- )  : primfilter ( file-id xt -- )
 \ fileid is for the input file, xt ( -- ) is for the output word  \ fileid is for the input file, xt ( -- ) is for the output word
Line 537  set-current Line 541  set-current
  if   if
    ." cannot open file" cr abort     ." cannot open file" cr abort
  endif   endif
  ." ------------ CUT HERE -------------" cr   warnings @ if
    ." ------------ CUT HERE -------------" cr  endif
  r> primfilter ;   r> primfilter ;
   

Removed from v.1.2  
changed lines
  Added in v.1.5


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>