|
version 1.19, 2004/12/31 13:24:04
|
version 1.20, 2007/10/29 15:56:31
|
|
Line 151 immediate restrict
|
Line 151 immediate restrict
|
| \ people who have not been brought up with Forth (or who have been |
\ people who have not been brought up with Forth (or who have been |
| \ brought up with fig-Forth). |
\ brought up with fig-Forth). |
| |
|
| : ELSE ( compilation orig1 -- orig2 ; run-time f -- ) \ core |
: ELSE ( compilation orig1 -- orig2 ; run-time -- ) \ core |
| POSTPONE ahead |
POSTPONE ahead |
| 1 cs-roll |
1 cs-roll |
| POSTPONE then ; immediate restrict |
POSTPONE then ; immediate restrict |
![[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