andif:toolbelt — compiling primitive
FORTH
ANDIF ( p ... -- flag )();p4:"andif";
ANDIF ( p ... -- flag )(
)
Given `p ANDIF q THEN`, _q_ will not be performed if _p_ is false.
: ANDIF S" DUP IF DROP " EVALUATE ; IMMEDIATE