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

XMode fix

release
Slava Pestov 2007-12-08 15:14:33 -05:00
parent 88f06748f6
commit ec51f84dea
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -65,7 +65,7 @@ M: rule match-position drop position get ;
: rest-of-line ( -- str ) : rest-of-line ( -- str )
line get position get tail-slice ; line get position get tail-slice ;
GENERIC: text-matches? ( position text -- match-count/f ) GENERIC: text-matches? ( string text -- match-count/f )
M: f text-matches? M: f text-matches?
2drop f ; 2drop f ;
@ -78,7 +78,7 @@ M: string-matcher text-matches?
] keep string-matcher-string length and ; ] keep string-matcher-string length and ;
M: regexp text-matches? M: regexp text-matches?
match-head ; >r >string r> match-head ;
: rule-start-matches? ( rule -- match-count/f ) : rule-start-matches? ( rule -- match-count/f )
dup rule-start tuck swap can-match-here? [ dup rule-start tuck swap can-match-here? [