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

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/regexp/traversal/traversal.factor
View File

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