1 \ @(#) condcomp.fth 98/01/26 1.2
2 \ Conditional Compilation support
4 \ Words: STRINGS= [IF] [ELSE] [THEN] EXISTS?
6 \ Lifted from X3J14 dpANS-6 document.
15 COUNT DUP \ level adr len len
17 2DUP S" [IF]" COMPARE 0=
22 COMPARE 0= \ level adr len flag
24 2DROP 1- DUP IF 1+ THEN \ level'
32 ?DUP 0= IF EXIT THEN \ level'
34 REFILL 0= UNTIL \ level
47 : EXISTS? ( <name> -- flag , true if defined )