Original bug ID: 4938
Reporter: furuse
Assigned to: ertai
Status: closed (set by @xavierleroy on 2012-03-24T14:01:46Z)
Resolution: fixed
Priority: normal
Severity: major
Version: 3.11.1
Category: -for Camlp4 use https://github.com/ocaml/camlp4/issues
Monitored by: Gabriel @ygrek

Bug description

The following OCaml-valid pattern is rejected by CamlP4:

let f [ 0; ] = 0

The following patch should fix the problem, though it has a dup code:

--- a/camlp4/Camlp4Parsers/Camlp4OCamlRevisedParser.ml
+++ b/camlp4/Camlp4Parsers/Camlp4OCamlRevisedParser.ml
@@ -904,6 +904,7 @@
;
sem_patt_for_list:
[ [ p = patt; ";"; pl = SELF -> fun acc -> <:patt< [ $p$ :: $pl acc$ ] >>

•    | p = patt; ";" -> fun acc -> <:patt< [ $p$ :: $acc$ ] >>
     | p = patt -> fun acc -> <:patt< [ $p$ :: $acc$ ] >>
   ] ]
  

  ;