Commits

camlspotter committed 078cc77

OCaml bug fix: CamlP4: location recovery for Pexp_ident was wrong

  • Participants
  • Parent commits e82fa48
  • Branches custom

Comments (0)

Files changed (1)

File camlp4/Camlp4/Struct/Camlp4Ast2OCamlAst.ml

           [ [(loc, ml, <:expr@sloc< $uid:s$ >>) :: l] ->
               let ca = constructors_arity () in
               (mkexp loc (Pexp_construct (mkli sloc (conv_con s) ml) None ca), l)
-          | [(loc, ml, <:expr@sloc< $lid:s$ >>) :: l] ->
-              (mkexp loc (Pexp_ident (mkli sloc s ml)), l)
+          | [(loc, ml, <:expr@_sloc< $lid:s$ >>) :: l] ->
+              (mkexp loc (Pexp_ident (mkli loc s ml)), l)
           | [(_, [], e) :: l] -> (expr e, l)
           | _ -> error loc "bad ast in expression" ]
         in