gforth/kernel/cond.fs - diff

Return to cond.fs CVS log

Up to [gforth] / gforth / kernel

version 1.27, 2012/08/21 19:36:55	version 1.30, 2012/12/31 15:25:19
Line 1	Line 1
\ Structural Conditionals 12dec92py	\ Structural Conditionals 12dec92py

\ Copyright (C) 1995,1996,1997,2000,2003,2004,2007,2010,2011 Free Software Foundation, Inc.	\ Copyright (C) 1995,1996,1997,2000,2003,2004,2007,2010,2011,2012 Free Software Foundation, Inc.

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

Line 193 IS until-like	Line 193 IS until-like
\g jump to the next outer BEGIN	\g jump to the next outer BEGIN
depth 0 ?DO I pick dest = IF	depth 0 ?DO I pick dest = IF
I cs-item-size / cs-pick postpone AGAIN	I cs-item-size / cs-pick postpone AGAIN
LEAVE THEN	UNLOOP EXIT THEN
cs-item-size +LOOP	cs-item-size +LOOP
true abort" no BEGIN found" ; immediate compile-only	true abort" no BEGIN found" ; immediate restrict

\ counted loops	\ counted loops