Revert "regexp.compiler: slightly faster with t/f check."
This reverts commit 9dcaa5c7e690bc38e468f355cbbafd3c5b299f90.db4
parent
376121eeed
commit
af48be41c8
|
@ -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>
|
||||
|
||||
|
|
Loading…
Reference in New Issue