steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/xmode/code2html/code2html-tests.factor
View File

@ -19,3 +19,7 @@ kernel io.streams.string xml.writer ;
/* a comment */ "> <string-reader> htmlize-stream /* a comment */ "> <string-reader> htmlize-stream
write-xml write-xml
] unit-test ] unit-test
[ "<span class=\"MARKUP\">: foo</span> <span class=\"MARKUP\">;</span>" ] [
{ ": foo ;" } "factor" htmlize-lines xml>string
] unit-test

2
basis/xmode/marker/marker.factor
View File

@ -84,7 +84,7 @@ M: string-matcher text-matches?
] keep string>> length and ; ] keep string>> length and ;
M: regexp text-matches? M: regexp text-matches?
[ >string ] dip re-contains? ; [ >string ] dip first-match to>> ;
: rule-start-matches? ( rule -- match-count/f ) : rule-start-matches? ( rule -- match-count/f )
dup start>> tuck swap can-match-here? [ dup start>> tuck swap can-match-here? [