incr-anchor ( yaml-anchors -- current-anchor )

Vocabulary

yaml.private

Inputs

yaml-anchors

an object

Outputs

current-anchor

an object

Definition

USING: accessors kernel math math.parser ;

IN: yaml.private

: incr-anchor ( yaml-anchors -- current-anchor )
    [ next-anchor>> ]
    [ [ [ number>string ] [ 1 + ] bi ] [ next-anchor<< ] bi* ]
    bi ;