From 40dae755b14acb2c32e7f4fd32fd09c4d94ac45e Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Wed, 11 Mar 2009 14:02:29 -0500 Subject: [PATCH] Change execute( to execute-unsafe( since in this case we know the types --- basis/regexp/regexp.factor | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/basis/regexp/regexp.factor b/basis/regexp/regexp.factor index d116bff73d..791b0b838b 100644 --- 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>