regexp: trivial refactoring

diff --git a/basis/regexp/negation/negation.factor b/basis/regexp/negation/negation.factor
index 5f627b645ec438384982eff19debe5d92a63e587..86e4de2b5444a1b2ee2cb106c73ec2dd679d80f5 100644 (file)
--- a/basis/regexp/negation/negation.factor
+++ b/basis/regexp/negation/negation.factor
@@ -46,8 +46,11 @@ CONSTANT: fail-state -1
     [ final-states>> members first ]
     [ nfa-table get [ transitions>> ] bi@ swap assoc-union! drop ] tri ;
 
+: ast>nfa ( parse-tree -- minimal-dfa )
+    construct-nfa disambiguate ;
+
 : ast>dfa ( parse-tree -- minimal-dfa )
-    construct-nfa disambiguate construct-dfa minimize ;
+    ast>nfa construct-dfa minimize ;
 
 M: negation nfa-node ( node -- start end )
     term>> ast>dfa negate-table adjoin-dfa ;