version 1.23, 2010/03/25 16:25:53
|
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 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 91 variable backedge-locals
|
Line 91 variable backedge-locals
|
rdrop |
rdrop |
dup cs-item? ; |
dup cs-item? ; |
|
|
|
: CS-DROP ( dest -- ) \ gforth |
|
dest? 2drop ; |
|
|
: cs-push-part ( -- list addr ) |
: cs-push-part ( -- list addr ) |
locals-list @ here ; |
locals-list @ here ; |
|
|
Line 184 IS until-like
|
Line 187 IS until-like
|
POSTPONE again |
POSTPONE again |
POSTPONE then ; immediate restrict |
POSTPONE then ; immediate restrict |
|
|
|
\ not clear if this should really go into Gforth's kernel... |
|
|
|
: CONTINUE ( dest-sys j*sys -- dest-sys j*sys ) \ gforth |
|
\g jump to the next outer BEGIN |
|
depth 0 ?DO I pick dest = IF |
|
I cs-item-size / cs-pick postpone AGAIN |
|
UNLOOP EXIT THEN |
|
cs-item-size +LOOP |
|
true abort" no BEGIN found" ; immediate restrict |
|
|
\ counted loops |
\ counted loops |
|
|
\ leave poses a little problem here |
\ leave poses a little problem here |