version 1.26, 2011/12/31 15:29:26
|
version 1.27, 2012/08/21 19:36:55
|
Line 187 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 |
|
LEAVE THEN |
|
cs-item-size +LOOP |
|
true abort" no BEGIN found" ; immediate compile-only |
|
|
\ counted loops |
\ counted loops |
|
|
\ leave poses a little problem here |
\ leave poses a little problem here |