(define-operation) ( operation -- )

Vocabulary

ui.operations

Inputs

operation

an object

Outputs

None

Definition

USING: accessors arrays assocs kernel namespaces ;

IN: ui.operations

: (define-operation) ( operation -- )
    dup [ command>> ] [ predicate>> ] bi 2array
    operations get set-at ;