diff options
author | Daniel de Rauglaudre <daniel.de_rauglaudre@inria.fr> | 2001-12-14 20:50:44 +0000 |
---|---|---|
committer | Daniel de Rauglaudre <daniel.de_rauglaudre@inria.fr> | 2001-12-14 20:50:44 +0000 |
commit | 965e14eca55728497ff39a7a65e8ca1e85e92f69 (patch) | |
tree | 1cfcbacf7ecb9a4f52382471ee9aeeac2176c2d1 /camlp4/ocaml_src/lib/grammar.ml | |
parent | aa7f25d4821c175080c24b2540dd5d9348f26eaa (diff) |
-
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@4169 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'camlp4/ocaml_src/lib/grammar.ml')
-rw-r--r-- | camlp4/ocaml_src/lib/grammar.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/camlp4/ocaml_src/lib/grammar.ml b/camlp4/ocaml_src/lib/grammar.ml index b48123a22..86f1bbde2 100644 --- a/camlp4/ocaml_src/lib/grammar.ml +++ b/camlp4/ocaml_src/lib/grammar.ml @@ -588,7 +588,7 @@ and parser_of_token_list p1 tokl = let p1 = loop (n + 1) tokl in (fun (strm__ : _ Stream.t) -> let a = ps strm__ in let act = p1 strm__ in app act a) - | [] -> assert false + | [] -> invalid_arg "parser_of_token_list" in loop 1 tokl and parser_of_symbol entry nlevn = |