(comment-end-dash-state) ( document n/f string ch/f -- document n'/f string )

Vocabulary

html5

Inputs

document	an object
n/f	an object
string	an object
ch/f	an object

Outputs

document	an object
n'/f	an object
string	an object

Definition

USING: combinators kernel ;

IN: html5

: (comment-end-dash-state)
    ( document n/f string ch/f -- document n'/f string )
    {
        { [ dup 45 = ] [ drop comment-end-state ] }
        { [ dup f = ] [ eof-in-comment ] }
        [ [ 45 reach push-comment-token ] dip (comment-state) ]
    } cond ;