unbreak regexp

2009-04-06 19:43:50 -05:00 · 2009-04-06 19:43:50 -05:00 · fb37e0eaca
parent a380ae2239
commit fb37e0eaca
1 changed files with 4 additions and 1 deletions
--- a/basis/regexp/dfa/dfa.factor
+++ b/basis/regexp/dfa/dfa.factor
@ -51,10 +51,13 @@ IN: regexp.dfa
    [ condition-states ] 2dip
    '[ _ _ add-todo-state ] each ;

+: ensure-state ( key table -- )
+    2dup key? [ 2drop ] [ [ H{ } clone ] 2dip set-at ] if ; inline
+
 :: new-transitions ( nfa dfa new-states visited-states -- nfa dfa )
    new-states [ nfa dfa ] [
        pop :> state
-        state dfa transitions>> maybe-initialize-key
+        state dfa transitions>> ensure-state
        state nfa find-transitions
        [| trans |
            state trans nfa find-closure :> new-state