version 1.13, 1994/07/27 13:37:02
|
version 1.14, 1994/08/19 17:47:23
|
Line 489 variable dead-code \ true if normal code
|
Line 489 variable dead-code \ true if normal code
|
\ This is the preferred alternative to the idiom "?DUP IF", since it can be |
\ This is the preferred alternative to the idiom "?DUP IF", since it can be |
\ better handled by tools like stack checkers |
\ better handled by tools like stack checkers |
POSTPONE ?dup POSTPONE if ; immediate restrict |
POSTPONE ?dup POSTPONE if ; immediate restrict |
: ?DUP-NOT-IF \ general |
: ?DUP-0=-IF \ general |
POSTPONE ?dup POSTPONE 0= POSTPONE if ; immediate restrict |
POSTPONE ?dup POSTPONE 0= POSTPONE if ; immediate restrict |
|
|
: THEN ( orig -- ) |
: THEN ( orig -- ) |