[BACK]Return to toolsext.fs CVS log [TXT] [DIR] Up to [gforth] / gforth

Diff for /gforth/Attic/toolsext.fs between versions 1.6 and 1.7

version 1.6, 1995/11/07 18:07:03 version 1.7, 1996/05/09 18:13:04
Line 83  User (i) Line 83  User (i)
 : [LOOP] ( -- ) 1 rdrop rdrop ;                       immediate  : [LOOP] ( -- ) 1 rdrop rdrop ;                       immediate
 : [FOR] ( n -- )  0 swap postpone [DO] ;              immediate  : [FOR] ( n -- )  0 swap postpone [DO] ;              immediate
 : [NEXT] ( n -- ) -1 rdrop rdrop ;                    immediate  : [NEXT] ( n -- ) -1 rdrop rdrop ;                    immediate
 : [I] ( -- index ) (I) @ postpone Literal ;           immediate  : [I] ( -- index ) (I) @ postpone Literal ;           immediate restrict
 : [BEGIN] >in @ >r BEGIN r@ >in ! interpret UNTIL rdrop ;  : [BEGIN] >in @ >r BEGIN r@ >in ! interpret UNTIL rdrop ;
                                                       immediate                                                        immediate
 ' [+LOOP]  Alias [UNTIL] immediate  ' [+LOOP]  Alias [UNTIL] immediate
Removed from v.1.6  
changed lines
  Added in v.1.7

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