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

Fix another XMode bug

db4
Slava Pestov 2009-03-28 22:19:55 -05:00
parent 2344660811
commit 602fe353e8
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

@ -22,4 +22,8 @@ kernel io.streams.string xml.writer ;
[ "<span class=\"MARKUP\">: foo</span> <span class=\"MARKUP\">;</span>" ] [ [ "<span class=\"MARKUP\">: foo</span> <span class=\"MARKUP\">;</span>" ] [
{ ": foo ;" } "factor" htmlize-lines xml>string { ": foo ;" } "factor" htmlize-lines xml>string
] unit-test
[ ":foo" ] [
{ ":foo" } "factor" htmlize-lines xml>string
] unit-test ] 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 first-match to>> ; [ >string ] dip first-match dup [ to>> ] when ;
: 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? [