number<-> ( doc -- dup )

Vocabulary

xml.syntax.private

Inputs

doc

an object

Outputs

dup

an object

Definition

USING: accessors kernel math ;

IN: xml.syntax.private

: number<-> ( doc -- dup )
    0 over
    [ dup var>> [ over >>var [ 1 + ] dip ] unless drop ]
    each-interpolated drop ;