From 16b177329cac77136b236dfb3645e4be4e3df297 Mon Sep 17 00:00:00 2001
From: Chouser <chouser@n01se.net>
Date: Wed, 28 Jan 2015 08:27:32 -0500
Subject: Ocaml: fix string escaping and printing

---
 ocaml/printer.ml | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'ocaml/printer.ml')

diff --git a/ocaml/printer.ml b/ocaml/printer.ml
index 8e71376..fe025af 100644
--- a/ocaml/printer.ml
+++ b/ocaml/printer.ml
@@ -19,7 +19,11 @@ let rec pr_str mal_obj print_readably =
       | T.Bool false -> "false"
       | T.String s ->
           if r
-          then  "\"" ^ (Str.global_replace (Str.regexp "\\([\"\\]\\)") "\\\\\\1" s) ^ "\""
+          then  "\"" ^ (Reader.gsub (Str.regexp "\\([\"\\\n]\\)")
+                                    (function
+                                      | "\n" -> "\\n"
+                                      | x -> "\\" ^ x)
+                                    s) ^ "\""
           else s
       | T.List { T.value = xs } ->
           "(" ^ (String.concat " " (List.map (fun s -> pr_str s r) xs)) ^ ")"
-- 
cgit v1.2.3