Fixing XMode, which I gratuitiously broke

db4
Daniel Ehrenberg 2009-03-10 23:21:05 -05:00
parent e2fda2e227
commit dca194e1eb
1 changed files with 2 additions and 2 deletions

View File

@ -3,7 +3,7 @@
USING: kernel namespaces make xmode.rules xmode.tokens
xmode.marker.state xmode.marker.context xmode.utilities
xmode.catalog sequences math assocs combinators strings
regexp splitting unicode.case
regexp splitting unicode.case ascii
combinators.short-circuit accessors ;
IN: xmode.marker
@ -84,7 +84,7 @@ M: string-matcher text-matches?
] keep string>> length and ;
M: regexp text-matches?
[ >string ] dip match-head ;
[ >string ] dip re-contains? ;
: rule-start-matches? ( rule -- match-count/f )
dup start>> tuck swap can-match-here? [