remove debug from regexp

db4
Doug Coleman 2008-11-01 19:39:49 -05:00
parent c417f829bd
commit 9c5bd1e96d
1 changed files with 1 additions and 1 deletions

View File

@ -102,7 +102,7 @@ M: capture-group-off flag-action ( dfa-traverser flag -- )
[ [ first2 1+ 2array ] map ] change-capture-counters
! dup current-state>> .
dup [ current-state>> ] [ traversal-flags>> ] bi
at [ dup . flag-action ] with each ;
at [ flag-action ] with each ;
: increment-state ( dfa-traverser state -- dfa-traverser )
[