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

This reverts commit 9dcaa5c7e690bc38e468f355cbbafd3c5b299f90.

diff --git a/basis/regexp/compiler/compiler.factor b/basis/regexp/compiler/compiler.factor
index 645e3dd841b78af66b0788a913915ce0e68679eb..a8b3c9168b1dec6e4381ae9fe1038d9ee2342532 100644 (file)
--- a/basis/regexp/compiler/compiler.factor
+++ b/basis/regexp/compiler/compiler.factor
@@ -118,13 +118,15 @@ 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 _ [ 2drop ] if ] ;
+    '[ drop [ f ] 2dip over array-capacity? _ [ 2drop ] if ] ;
 
 PRIVATE>