Merge pull request #40 from yallop/mantis-6221

Fix for Mantis 6221.
camlp4 · May 30, 2014 · ce59218 · ce59218
2 parents 87c6a6b + f9899db
commit ce59218
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/camlp4/Camlp4Parsers/Camlp4OCamlParser.ml b/camlp4/Camlp4Parsers/Camlp4OCamlParser.ml
@@ -484,7 +484,7 @@ module Make (Syntax : Sig.Camlp4Syntax) = struct
       [ [ t1 = SELF; "as"; "'"; i = a_ident -> <:ctyp< $t1$ as '$i$ >> ]
       | "arrow" RIGHTA
         [ t1 = SELF; "->"; t2 = SELF -> <:ctyp< $t1$ -> $t2$ >>
-        | i = TRY [i = a_LIDENT; ":" -> i]; t1 = ctyp LEVEL "star"; "->"; t2 = SELF ->
+        | (i, t1) = TRY [i = a_LIDENT; ":"; t1 = ctyp LEVEL "star"; "->" -> (i, t1)]; t2 = SELF ->
             <:ctyp< ( ~ $i$ : $t1$ ) -> $t2$ >>
         | i = a_OPTLABEL; t1 = ctyp LEVEL "star"; "->"; t2 = SELF ->
             <:ctyp< ( ? $i$ : $t1$ ) -> $t2$ >>