     [ assoc-map ] [ drop clear-assoc ] [ drop swap assoc-union! ] 2tri ; inline
 
 M: assoc (deref-aliases)
-     [ [ (deref-aliases) ] bi-curry@ bi ] with2 assoc-map! ;
+     [ [ (deref-aliases) ] bi-curry@ bi ] withd assoc-map! ;
 
 : merge-values ( seq -- assoc )
     reverse [ ] [ assoc-union ] map-reduce ;

    [
        [ emit-mapping-key ]
        [ emit-object ] bi-curry* 2bi
    ] with2 with2 assoc-each ;

: emit-linked-assoc-body ( emitter event linked-assoc -- )
    >alist [ first2 swap associate ] map emit-sequence-body ;

        [ 2drop ] [ 1array yaml-unexpected-event ] if
    ] with-destructors ;

GENERIC: (deref-aliases) ( anchors obj -- obj' )

M: object (deref-aliases) nip ;
