From 9c5bd1e96d9abf314af7d654dd85e89d144f9aa4 Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Sat, 1 Nov 2008 19:39:49 -0500 Subject: [PATCH] remove debug from regexp --- basis/regexp/traversal/traversal.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/basis/regexp/traversal/traversal.factor b/basis/regexp/traversal/traversal.factor index f5a235fa7f..346d77e918 100644 --- a/basis/regexp/traversal/traversal.factor +++ b/basis/regexp/traversal/traversal.factor @@ -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 ) [