get-anchor ( yaml-anchors obj -- anchor/f )

Vocabulary

yaml.private

Inputs

yaml-anchors	an object
obj	an object

Outputs

anchor/f

an object

Definition

USING: accessors assocs combinators.short-circuit kernel ;

IN: yaml.private

: get-anchor ( yaml-anchors obj -- anchor/f )
    { [ (get-anchor) ] [ over new-objects>> at (get-anchor) ] }
    2|| ;