orif:toolbelt — compiling primitive
FORTH
ORIF ( p ... -- flag )();p4:"orif";
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