read-comment ( sequence-parser -- )

Vocabulary

html.parser.private

Inputs

sequence-parser

an object

Outputs

None

Definition

USING: html.parser kernel math sequences.parser ;

IN: html.parser.private

: read-comment ( sequence-parser -- )
    [ "-->" take-until-sequence comment new-tag push-tag ]
    [ [ advance drop ] curry 3 swap times ] bi ;