operation-quot ( target operation -- quot )


Vocabulary
ui.operations

Inputs
targetan object
operationan object


Outputs
quotan object


Definition
USING: accessors kernel ;

IN: ui.operations

: operation-quot ( target operation -- quot )
[ translator>> ] [ command>> ] bi [ curry ] dip
[ execute ] curry compose ;