The proper way to escape @ in a format string is %@ not deprecated @@...

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@16442 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02

Author: pierreweis

typing/primitive.ml

@@ -128,11 +128,10 @@ let byte_name p =
   p.prim_name
 
 let report_error ppf err =
-  let open Format in
   match err with
   | Float_with_native_repr_attribute ->
-      fprintf ppf "Cannot use \"float\" in conjunction with \
-                   [@@unboxed]/[@@untagged]"
+    Format.fprintf ppf "Cannot use \"float\" in conjunction with \
+                   [%@unboxed]/[%@untagged]"
 
 let () =
   Location.register_error_of_exn