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

diff --git a/basis/regexp/regexp.factor b/basis/regexp/regexp.factor
index d116bff73d1d5f137b58c818cf9aea4295c7370f..791b0b838b4a9030ea574be458e330609c48f003 100644 (file)
--- a/basis/regexp/regexp.factor
+++ b/basis/regexp/regexp.factor
@@ -40,7 +40,7 @@ M: lookbehind question>quot ! Returns ( index string -- ? )
 : match-index-from ( i string regexp -- index/f )
     ! This word is unsafe. It assumes that i is a fixnum
     ! 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 )
 M: regexp end/start drop length 0 ;
@@ -72,7 +72,7 @@ PRIVATE>
     [ dup [ reverse? [ from>> ] [ to>> ] if ] when ] keep ; inline
 
 : 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>