gforth/kernel/toolsext.fs - diff

Return to toolsext.fs CVS log

Up to [gforth] / gforth / kernel

version 1.3, 1997/08/31 19:32:31	version 1.4, 1997/12/01 21:15:23
Line 84 User (i)	Line 84 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	: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