node-ancestors ( node -- ancestors )

Vocabulary

html5

Inputs

node

an object

Outputs

ancestors

an object

Definition

USING: accessors kernel sequences ;

IN: html5

:: node-ancestors ( node -- ancestors )
    V{ } clone :> ancestors node parent>> :> parent!
    [ parent tag? ]
    [ parent ancestors push parent parent>> parent! ] while
    ancestors ;