Fix exponential time behaviour when constructing Alt (#106)

Fixes #97 by removing a duplicate evaluation Signed-off-by: Fangyi Zhou <[email protected]>
ocaml-community · Dec 3, 2021 · 60f476a · 60f476a
1 parent 268c553
commit 60f476a
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/syntax/sedlex.ml b/src/syntax/sedlex.ml
@@ -38,7 +38,7 @@ let alt r1 r2 succ =
   | Some c1, Some c2 -> chars (Cset.union c1 c2) succ
   | _ ->
     let n = new_node () in
-    n.eps <- [r1 succ; r2 succ];
+    n.eps <- [nr1; nr2];
     n
 
 let rep r succ =