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

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

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

@ -3,7 +3,7 @@
USING: kernel namespaces make xmode.rules xmode.tokens USING: kernel namespaces make xmode.rules xmode.tokens
xmode.marker.state xmode.marker.context xmode.utilities xmode.marker.state xmode.marker.context xmode.utilities
xmode.catalog sequences math assocs combinators strings xmode.catalog sequences math assocs combinators strings
regexp splitting unicode.case regexp splitting unicode.case ascii
combinators.short-circuit accessors ; combinators.short-circuit accessors ;
IN: xmode.marker IN: xmode.marker
@ -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 match-head ; [ >string ] dip re-contains? ;
: 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? [