prepare-operand ( term -- quot )

Vocabulary

infix.private

Inputs

term

an object

Outputs

quot

an object

Definition

USING: kernel quotations ;

IN: infix.private

: prepare-operand ( term -- quot )
    dup callable? [ 1quotation ] unless ;