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

version 1.2, 1994/05/18 17:29:59 version 1.6, 1994/08/25 15:25:33
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 87  variable effect-out-end ( pointer ) Line 89  variable effect-out-end ( pointer )
 2variable effect-in-size  2variable effect-in-size
 2variable effect-out-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  \ 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  \ since neither forget nor marker are implemented yet, we make a new
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.6


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