Return to control.fs CVS log | Up to [gforth] / gforth / compat |
version 1.1, 1996/02/09 17:34:34 | version 1.2, 1997/06/06 17:28:12 |
---|---|
Line 4 | Line 4 |
\ Hmm, this would be a good application for ]] ... [[ | \ Hmm, this would be a good application for ]] ... [[ |
\ The program uses the following words | |
\ from CORE : | |
\ : POSTPONE THEN ; immediate ?dup IF 0= | |
\ from BLOCK-EXT : | |
\ \ | |
\ from FILE : | |
\ ( | |
: ENDIF ( compilation orig -- ; run-time -- ) \ gforth | : ENDIF ( compilation orig -- ; run-time -- ) \ gforth |
POSTPONE then ; immediate | POSTPONE then ; immediate |