call-accessor ( obj1 obj2 quot -- obj1' obj2' )


Vocabulary
sorting.specification.private

Inputs
obj1an object
obj2an object
quotan object


Outputs
obj1'an object
obj2'an object


Definition


: call-accessor ( obj1 obj2 quot -- obj1' obj2' )
[ ( obj -- value ) call-effect ] curry bi@ ;