[gforth] / gforth / prims2x.fs  

gforth: gforth/prims2x.fs

Diff for /gforth/prims2x.fs between version 1.2 and 1.3

version 1.2, Wed May 18 17:29:59 1994 UTC version 1.3, Thu Jul 7 14:59:26 1994 UTC
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
   
 include gray.fs  include gray.fs
 include search-order.fs  include search-order.fs
   
Line 195 
Line 197 
   
 (( (( 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 
Line 541 
  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 ;

Generate output suitable for use with a patch program
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
CVS Admin

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help