assert-anchor-exists ( anchor -- )

Vocabulary

yaml.private

Inputs

anchor

an object

Outputs

None

Definition

USING: assocs kernel namespaces yaml ;

IN: yaml.private

: assert-anchor-exists ( anchor -- )
    anchors get 2dup at* nip
    [ 2drop ] [ yaml-undefined-anchor ] if ;