read-bang ( sequence-parser -- )

Vocabulary

html.parser.private

Inputs

sequence-parser

an object

Outputs

None

Definition

USING: combinators.short-circuit kernel sequences.parser ;

IN: html.parser.private

: read-bang ( sequence-parser -- )
    advance dup { [ current 45 = ] [ peek-next 45 = ] } 1&&
    [ advance advance read-comment ] [ read-dtd ] if ;