Handbook
Glossary
(comment-less-than-sign-bang-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-less-than-sign-bang-state)
( document n/f string ch/f -- document n'/f string )
{
{
[
dup
45
=
]
[
reach
push-comment-token
comment-less-than-sign-bang-dash-state
]
}
[
(comment-state)
]
}
cond
;