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

Change execute( to execute-unsafe( since in this case we know the types

db4
Slava Pestov 2009-03-11 14:02:29 -05:00
parent fdcd8f210a
commit 40dae755b1
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/regexp/regexp.factor
View File

@ -40,7 +40,7 @@ M: lookbehind question>quot ! Returns ( index string -- ? )
: match-index-from ( i string regexp -- index/f ) : match-index-from ( i string regexp -- index/f )
! This word is unsafe. It assumes that i is a fixnum ! This word is unsafe. It assumes that i is a fixnum
! and that string is a string. ! and that string is a string.
dup dfa>> execute( index string regexp -- i/f ) ; dup dfa>> execute-unsafe( index string regexp -- i/f ) ;
GENERIC: end/start ( string regexp -- end start ) GENERIC: end/start ( string regexp -- end start )
M: regexp end/start drop length 0 ; M: regexp end/start drop length 0 ;
@ -72,7 +72,7 @@ PRIVATE>
[ dup [ reverse? [ from>> ] [ to>> ] if ] when ] keep ; inline [ dup [ reverse? [ from>> ] [ to>> ] if ] when ] keep ; inline
: do-next-match ( i string regexp -- i match/f ) : do-next-match ( i string regexp -- i match/f )
dup next-match>> execute( i string regexp -- i match/f ) ; inline dup next-match>> execute-unsafe( i string regexp -- i match/f ) ; inline
PRIVATE> PRIVATE>