From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Sun, 29 Mar 2009 03:19:55 +0000 (-0500)
Subject: Fix another XMode bug
X-Git-Tag: 0.94~2187^2~18
X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=602fe353e8f6fed9fdaa92567cfc72db016bd319

Fix another XMode bug
---

diff --git a/basis/xmode/code2html/code2html-tests.factor b/basis/xmode/code2html/code2html-tests.factor
index a35e6a2194..8d5db4a6e9 100644
--- a/basis/xmode/code2html/code2html-tests.factor
+++ b/basis/xmode/code2html/code2html-tests.factor
@@ -22,4 +22,8 @@ kernel io.streams.string xml.writer ;
 
 [ "<span class=\"MARKUP\">: foo</span> <span class=\"MARKUP\">;</span>" ] [
     { ": foo ;" } "factor" htmlize-lines xml>string
+] unit-test
+
+[ ":foo" ] [
+    { ":foo" } "factor" htmlize-lines xml>string
 ] unit-test
\ No newline at end of file
diff --git a/basis/xmode/marker/marker.factor b/basis/xmode/marker/marker.factor
index 98b4f91f86..b4c1cd6a48 100755
--- a/basis/xmode/marker/marker.factor
+++ b/basis/xmode/marker/marker.factor
@@ -84,7 +84,7 @@ M: string-matcher text-matches?
     ] keep string>> length and ;
 
 M: regexp text-matches?
-    [ >string ] dip first-match to>> ;
+    [ >string ] dip first-match dup [ to>> ] when ;
 
 : rule-start-matches? ( rule -- match-count/f )
     dup start>> tuck swap can-match-here? [