#IS_TRUE #IS_FALSE #S
#IS_TRUE
* #IS_TRUE ( flag -- )
              ( state-save mfth-if-magic flag -- )
checks the condition on the CS-STACK.

Pairs with >#IF

better use the ANSI style [IF] [ELSE] [THEN] construct.

cdecl immediate primitive