command-quot ( target command -- quot )

Vocabulary

ui.commands

Inputs

target	an object
command	an object

Outputs

quot

an object

Definition

USING: kernel quotations words ;

IN: ui.commands

: command-quot ( target command -- quot )
    [ 1quotation ] [ +nullary+ word-prop ] bi
    [ nip ] [ curry ] if ;