regexp.compiler: slightly faster with t/f check.

diff --git a/basis/regexp/compiler/compiler.factor b/basis/regexp/compiler/compiler.factor
index a8b3c9168b1dec6e4381ae9fe1038d9ee2342532..645e3dd841b78af66b0788a913915ce0e68679eb 100644 (file)
--- a/basis/regexp/compiler/compiler.factor
+++ b/basis/regexp/compiler/compiler.factor
@@ -118,15 +118,13 @@ C: <box> box
 
 : states>words ( dfa -- words dfa )
     dup transitions>> keys [ gensym ] H{ } map>assoc
-    [ transitions-at ]
-    [ values ]
-    bi swap ; 
+    [ transitions-at ] [ values ] bi swap ;
 
 : dfa>main-word ( dfa -- word )
     states>words [ states>code ] keep start-state>> ;
 
 : word-template ( quot -- quot' )
-    '[ drop [ f ] 2dip over array-capacity? _ [ 2drop ] if ] ;
+    '[ drop [ f ] 2dip over _ [ 2drop ] if ] ;
 
 PRIVATE>