Fix an XMode bug exposed in the pastebin

db4
Slava Pestov 2009-03-28 22:13:58 -05:00
parent 8c37cf596c
commit fe0a71cd88
2 changed files with 5 additions and 1 deletions

View File

@ -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

View File

@ -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? [