PR#6469: -dsource prints Pervasives.(!) as Pervasives.!

git-svn-id: http://caml.inria.fr/svn/ocaml/version/4.02@14997 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
ocaml · Jul 11, 2014 · 8c1e5cd · 8c1e5cd
1 parent b741f0e
commit 8c1e5cd
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/parsing/pprintast.ml b/parsing/pprintast.ml
@@ -76,8 +76,8 @@ let protect_ident ppf txt =
 let protect_longident ppf print_longident longprefix txt =
   let format : (_, _, _) format =
     if not (needs_parens txt) then "%a.%s"
-    else if needs_spaces txt then  "(@;%a.%s@;)"
-    else "(%a.%s)" in
+    else if needs_spaces txt then  "%a.(@;%s@;)"
+    else "%a.(%s)" in
   fprintf ppf format print_longident longprefix txt
 
 type space_formatter = (unit, Format.formatter, unit) format