|
version 1.7, 2006/03/26 22:54:20
|
version 1.8, 2006/11/05 18:26:01
|
|
Line 20
|
Line 20
|
| |
|
| \ Structural Conditionals 12dec92py |
\ Structural Conditionals 12dec92py |
| |
|
| Variable leavings |
\ this works with flash |
| |
|
| \ this doesn't work with flash yet!! |
: (leave) -1 , ; |
| |
|
| : (leave) here leavings @ , leavings ! ; |
|
| : LEAVE postpone branch (leave) ; immediate restrict |
: LEAVE postpone branch (leave) ; immediate restrict |
| : ?LEAVE postpone 0= postpone ?branch (leave) ; |
: ?LEAVE postpone 0= postpone ?branch (leave) ; |
| immediate restrict |
immediate restrict |
| |
|
| : DONE ( addr -- ) leavings @ |
: DONE ( addr -- ) here swap ?DO |
| BEGIN 2dup u<= WHILE dup @ swap >resolve REPEAT |
I @ ['] branch = I @ ['] ?branch = or I @ ['] (?do) = or |
| leavings ! drop ; immediate restrict |
I cell+ @ -1 = and IF I cell+ >resolve THEN |
| |
cell +LOOP ; immediate restrict |
| |
|
| \ Structural Conditionals 12dec92py |
\ Structural Conditionals 12dec92py |
| |
|
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to cloop.fs CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth / kernel