ORIF ORDER OUT
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

toolbelt compiling primitive