From af48be41c81b1b5577c24802dcb45e4596eb0dda Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Mon, 19 May 2014 10:04:16 -0700 Subject: [PATCH] Revert "regexp.compiler: slightly faster with t/f check." This reverts commit 9dcaa5c7e690bc38e468f355cbbafd3c5b299f90. --- basis/regexp/compiler/compiler.factor | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/basis/regexp/compiler/compiler.factor b/basis/regexp/compiler/compiler.factor index 645e3dd841..a8b3c9168b 100644 --- a/basis/regexp/compiler/compiler.factor +++ b/basis/regexp/compiler/compiler.factor @@ -118,13 +118,15 @@ C: 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>