if-void ( ..a c-type true: ( ..a -- ..b ) false: ( ..a c-type -- ..b ) -- ..b )


Vocabulary
alien.c-types

Inputs
c-typean object
truea quotation with stack effect ( ..a -- ..b )
falsea quotation with stack effect ( ..a c-type -- ..b )


Outputs
None

Definition


: if-void
( ..a c-type true: ( ..a -- ..b ) false: ( ..a c-type -- ..b ) -- ..b )
pick void? [ drop nip call ] [ nip call ] if ; inline