|
version 1.24, 2010/12/31 18:09:02
|
version 1.27, 2012/08/21 19:36:55
|
|
Line 1
|
Line 1
|
| \ Structural Conditionals 12dec92py |
\ Structural Conditionals 12dec92py |
| |
|
| \ Copyright (C) 1995,1996,1997,2000,2003,2004,2007,2010 Free Software Foundation, Inc. |
\ Copyright (C) 1995,1996,1997,2000,2003,2004,2007,2010,2011 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 |
| |
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 |
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to cond.fs CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth / kernel