?call ( ..a obj/f quot: ( ..a obj -- ..a obj' ) -- ..a obj'/f )

Vocabulary

kernel

Inputs

obj/f	an object or f
quot	a quotation

Outputs

obj'/f

an object or f

Word description

Call the quotation if obj is not f.

Examples

Example:

USING: kernel math prettyprint ; 5 [ sq ] ?call .
25

Example:

USING: kernel math prettyprint ; f [ sq ] ?call .
f

Definition

IN: kernel

: ?call
    ( ..a obj/f quot: ( ..a obj -- ..a obj' ) -- ..a obj'/f )
    dupd when ; inline