insert-before-node ( node sibling -- )

Vocabulary

html5

Inputs

node	an object
sibling	an object

Outputs

None

Definition

USING: accessors sequences.extras ;

IN: html5

:: insert-before-node ( node sibling -- )
    sibling parent>> :> parent parent parent-children
    :> children sibling children node-index
    :> position node parent set-node-parent
    node position children insert-nth! ;