[gforth] / gforth / blocks.fs  

gforth: gforth/blocks.fs

Diff for /gforth/blocks.fs between version 1.14 and 1.15

version 1.14, Wed May 21 20:39:18 1997 UTC version 1.15, Thu May 29 19:42:12 1997 UTC
Line 168 
Line 168 
   pop-file ( throw ) ;    pop-file ( throw ) ;
   
 : thru ( i*x n1 n2 -- j*x )  : thru ( i*x n1 n2 -- j*x )
   1+ swap 0 ?DO  I load  LOOP ;    1+ swap ?DO  I load  LOOP ;
   
 : +load ( i*x n -- j*x )  blk @ + load ;  : +load ( i*x n -- j*x )  blk @ + load ;
   
 : +thru ( i*x n1 n2 -- j*x )  : +thru ( i*x n1 n2 -- j*x )
   1+ swap 0 ?DO  I +load  LOOP ;    1+ swap ?DO  I +load  LOOP ;
   
 : --> ( -- )  refill drop ; immediate  : --> ( -- )  refill drop ; immediate
   

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help