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

version 1.14, 1997/05/21 20:39:18 version 1.15, 1997/05/29 19:42:12
Line 168  User scr 0 scr ! Line 168  User scr 0 scr !
   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
   

Removed from v.1.14  
changed lines
  Added in v.1.15


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