-assoc- ( quot -- quot' )


Vocabulary
cursors

Inputs
quotan object


Outputs
quot'an object


Definition
USING: kernel ;

IN: cursors

: -assoc- ( quot -- quot' )
[ [ cursor-key-value ] ] dip compose ; inline