gforth/kernel/cond.fs - diff

Return to cond.fs CVS log

Up to [gforth] / gforth / kernel

version 1.7, 1999/12/03 18:49:51	version 1.9, 2000/09/23 15:06:09
Line 1	Line 1
\ Structural Conditionals 12dec92py	\ Structural Conditionals 12dec92py

\ Copyright (C) 1995,1996,1997 Free Software Foundation, Inc.	\ Copyright (C) 1995,1996,1997,2000 Free Software Foundation, Inc.

\ This file is part of Gforth.	\ This file is part of Gforth.

Line 163 Defer again-like ( dest -- addr )	Line 163 Defer again-like ( dest -- addr )
: AGAIN ( compilation dest -- ; run-time -- ) \ core-ext	: AGAIN ( compilation dest -- ; run-time -- ) \ core-ext
dest? again-like POSTPONE branch <resolve ; immediate restrict	dest? again-like POSTPONE branch <resolve ; immediate restrict

Defer until-like	Defer until-like ( list addr xt1 xt2 -- )
: until, ( list addr xt1 xt2 -- ) drop compile, <resolve drop ;	:noname ( list addr xt1 xt2 -- )
' until, IS until-like	drop compile, <resolve drop ;
	IS until-like

: UNTIL ( compilation dest -- ; run-time f -- ) \ core	: UNTIL ( compilation dest -- ; run-time f -- ) \ core
dest? ['] ?branch ['] ?branch-lp+!# until-like ; immediate restrict	dest? ['] ?branch ['] ?branch-lp+!# until-like ; immediate restrict