(replace-anchors) ( yaml-anchors obj -- obj' )

Vocabulary

yaml.private

Inputs

yaml-anchors	an object
obj	an object

Outputs

obj'

an object

Definition

IN: yaml.private

GENERIC: (replace-anchors) ( yaml-anchors obj -- obj' )

Methods

USING: assocs kernel yaml.private ;

M: assoc (replace-anchors)
    swap [ swap ?replace-anchors ] curry [ bi@ ] curry assoc-map
    ;


USING: byte-arrays kernel yaml.private ;

M: byte-array (replace-anchors) nip ;


USING: kernel yaml.private ;

M: object (replace-anchors) nip ;


USING: kernel sequences yaml.private ;

M: sequence (replace-anchors) [ ?replace-anchors ] with map ;


USING: kernel sets yaml.private ;

M: set (replace-anchors)
    [ members ?replace-anchors ] keep set-like ;


USING: kernel strings yaml.private ;

M: string (replace-anchors) nip ;