PR#2051

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@6078 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
bmeurer · Jan 23, 2004 · 55fe5f7 · 55fe5f7
1 parent f603345
commit 55fe5f7
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/lex/lexgen.ml b/lex/lexgen.ml
@@ -1002,7 +1002,8 @@ let apply_transitions gen r pri m ts =
 
 (* For a given nfa_state pos, refine char partition *)  
 let rec split_env gen follow pos m s = function
-  | [] -> assert false
+  | [] -> (* Can occur ! because of non-matching regexp ([^'\000'-'\255']) *)
+      []
   | (s1,st1) as p::rem ->
       let here = Cset.inter s s1 in
       if Cset.is_empty here then