fix compiler errors
parent
a1ff275a4d
commit
e92980b9ad
|
@ -122,7 +122,7 @@ SYMBOL: tagstack
|
||||||
: parse-attributes ( -- hashtable )
|
: parse-attributes ( -- hashtable )
|
||||||
[ (parse-attributes) ] { } make >hashtable ;
|
[ (parse-attributes) ] { } make >hashtable ;
|
||||||
|
|
||||||
: (parse-tag)
|
: (parse-tag) ( string -- string' hashtable )
|
||||||
[
|
[
|
||||||
read-token >lower
|
read-token >lower
|
||||||
parse-attributes
|
parse-attributes
|
||||||
|
|
|
@ -4,7 +4,7 @@ namespaces prettyprint quotations sequences splitting
|
||||||
state-parser strings sequences.lib ;
|
state-parser strings sequences.lib ;
|
||||||
IN: html.parser.utils
|
IN: html.parser.utils
|
||||||
|
|
||||||
: string-parse-end?
|
: string-parse-end? ( -- ? )
|
||||||
get-next not ;
|
get-next not ;
|
||||||
|
|
||||||
: take-string* ( match -- string )
|
: take-string* ( match -- string )
|
||||||
|
|
Loading…
Reference in New Issue