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