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

Vocabulary

yaml.private

Inputs

yaml-anchors	an object
obj	an object

Outputs

obj'

an object

Definition

USING: kernel ;

IN: yaml.private

: ?replace-anchors ( yaml-anchors obj -- obj' )
    [ (replace-anchors) ] [ get-anchor ] 2bi
    [ swap <yaml-anchor> ] when* ;