Return to kernal.fs CVS log | Up to [gforth] / gforth |
version 1.2, 1994/04/20 17:12:03 | version 1.3, 1994/05/03 15:24:12 |
---|---|
Line 509 Create ??? ," ???" | Line 509 Create ??? ," ???" |
\ : ; 24feb93py | \ : ; 24feb93py |
: EXIT ( -- ) postpone ;s ; immediate | |
: : ( -- colon-sys ) Header [ :docol ] ALiteral cfa, 0 ] ; | : : ( -- colon-sys ) Header [ :docol ] ALiteral cfa, 0 ] ; |
: ; ( colon-sys -- ) ?struc postpone exit reveal postpone [ ; | : ; ( colon-sys -- ) ?struc postpone exit reveal postpone [ ; |
immediate restrict | immediate restrict |