Commits

camlspotter committed ba2afb8

CamlP4 did not allow an optional `;' at list patterns: i.e. function [0; ] -> 0

Comments (0)

Files changed (1)

camlp4/Camlp4Parsers/Camlp4OCamlRevisedParser.ml

     ;
     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$ ] >>
       ] ]
     ;