?register-anchor ( obj event -- obj )

Vocabulary

yaml.private

Inputs

obj	an object
event	an object

Outputs

obj

an object

Definition

USING: accessors assocs kernel namespaces ;

IN: yaml.private

: ?register-anchor ( obj event -- obj )
    dupd anchor>> [ anchors get set-at ] [ drop ] if* ;