summaryrefslogtreecommitdiffstats
path: root/camlp4/ocaml_src/lib/grammar.ml
diff options
context:
space:
mode:
authorDaniel de Rauglaudre <daniel.de_rauglaudre@inria.fr>2001-12-14 20:50:44 +0000
committerDaniel de Rauglaudre <daniel.de_rauglaudre@inria.fr>2001-12-14 20:50:44 +0000
commit965e14eca55728497ff39a7a65e8ca1e85e92f69 (patch)
tree1cfcbacf7ecb9a4f52382471ee9aeeac2176c2d1 /camlp4/ocaml_src/lib/grammar.ml
parentaa7f25d4821c175080c24b2540dd5d9348f26eaa (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.ml2
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 =