adoption-pass ( document token -- continue? )

Vocabulary

html5

Inputs

document	an object
token	an object

Outputs

continue?

an object

Definition

USING: accessors kernel sequences ;

IN: html5

:: adoption-pass ( document token -- continue? )
    document token name>> formatting-index [
        document active-formatting-elements>> nth
        document swap adopt-formatting
    ] [ document token other-formatting-end-tag f ] if* ;