* ORIF ( p ... -- flag ) Given `p ORIF q THEN`, _q_ will not be performed if _p_ is true. : ORIF S" DUP 0= IF DROP " EVALUATE ; IMMEDIATE
ORIF
( p ... -- flag )
: ORIF S" DUP 0= IF DROP " EVALUATE ; IMMEDIATE
FORTH/DEF toolbelt compiling primitive