[gforth] / gforth / kernel / toolsext.fs  

gforth: gforth/kernel/toolsext.fs

Diff for /gforth/kernel/toolsext.fs between version 1.3 and 1.4

version 1.3, Sun Aug 31 19:32:31 1997 UTC version 1.4, Mon Dec 1 21:15:23 1997 UTC
Line 84 
Line 84 
 : [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  :noname (i) @ ;
   :noname (i) @ postpone Literal ;
   interpret/compile: [I]
 : [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

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help