Fix an XMode bug exposed in the pastebin
parent
8c37cf596c
commit
fe0a71cd88
|
@ -18,4 +18,8 @@ kernel io.streams.string xml.writer ;
|
|||
<" int x = "hi";
|
||||
/* a comment */ "> <string-reader> htmlize-stream
|
||||
write-xml
|
||||
] unit-test
|
||||
|
||||
[ "<span class=\"MARKUP\">: foo</span> <span class=\"MARKUP\">;</span>" ] [
|
||||
{ ": foo ;" } "factor" htmlize-lines xml>string
|
||||
] unit-test
|
|
@ -84,7 +84,7 @@ M: string-matcher text-matches?
|
|||
] keep string>> length and ;
|
||||
|
||||
M: regexp text-matches?
|
||||
[ >string ] dip re-contains? ;
|
||||
[ >string ] dip first-match to>> ;
|
||||
|
||||
: rule-start-matches? ( rule -- match-count/f )
|
||||
dup start>> tuck swap can-match-here? [
|
||||
|
|
Loading…
Reference in New Issue