execute-accessor ( obj1 obj2 word -- obj1' obj2' )

Vocabulary

sorting.specification.private

Inputs

obj1	an object
obj2	an object
word	an object

Outputs

obj1'	an object
obj2'	an object

Definition

USING: combinators kernel ;

IN: sorting.specification.private

: execute-accessor ( obj1 obj2 word -- obj1' obj2' )
    [ ( tuple -- value ) execute-effect ] curry bi@ ;