steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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

This reverts commit 9dcaa5c7e690bc38e468f355cbbafd3c5b299f90.
db4
John Benediktsson 2014-05-19 10:04:16 -07:00
parent 376121eeed
commit af48be41c8
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
basis/regexp/compiler/compiler.factor
View File

@ -118,13 +118,15 @@ C: <box> box
: states>words ( dfa -- words dfa ) : states>words ( dfa -- words dfa )
dup transitions>> keys [ gensym ] H{ } map>assoc dup transitions>> keys [ gensym ] H{ } map>assoc
[ transitions-at ] [ values ] bi swap ; [ transitions-at ]
[ values ]
bi swap ;
: dfa>main-word ( dfa -- word ) : dfa>main-word ( dfa -- word )
states>words [ states>code ] keep start-state>> ; states>words [ states>code ] keep start-state>> ;
: word-template ( quot -- quot' ) : word-template ( quot -- quot' )
'[ drop [ f ] 2dip over _ [ 2drop ] if ] ; '[ drop [ f ] 2dip over array-capacity? _ [ 2drop ] if ] ;
PRIVATE> PRIVATE>