PR#5442: use safe_string_escaped instead of String.escaped

git-svn-id: http://caml.inria.fr/svn/ocaml/version/3.12@11983 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
bmeurer · Dec 30, 2011 · 7d75301 · 7d75301
1 parent 9e71bda
commit 7d75301
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/camlp4/boot/Camlp4Ast.ml b/camlp4/boot/Camlp4Ast.ml
@@ -471,7 +471,7 @@ module Make (Loc : Sig.Loc) : Sig.Camlp4Ast with module Loc = Loc =
             value meta_loc = meta_loc_expr;
             module Expr =
               struct
-                value meta_string _loc s = Ast.ExStr _loc (String.escaped s);
+                value meta_string _loc s = Ast.ExStr _loc (safe_string_escaped s);
                 value meta_int _loc s = Ast.ExInt _loc s;
                 value meta_float _loc s = Ast.ExFlo _loc s;
                 value meta_char _loc s = Ast.ExChr _loc (String.escaped s);