Merge with upstream

dhil · Aug 1, 2024 · 7b5c81f · 7b5c81f
2 parents 221b8f1 + 351d8b1
commit 7b5c81f
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/interpreter/text/arrange.ml b/interpreter/text/arrange.ml
@@ -15,7 +15,9 @@ let nat32 = I32.to_string_u
 let add_hex_char buf c = Printf.bprintf buf "\\%02x" (Char.code c)
 let add_char buf = function
   | '\n' -> Buffer.add_string buf "\\n"
+  | '\r' -> Buffer.add_string buf "\\r"
   | '\t' -> Buffer.add_string buf "\\t"
+  | '\'' -> Buffer.add_string buf "\\'"
   | '\"' -> Buffer.add_string buf "\\\""
   | '\\' -> Buffer.add_string buf "\\\\"
   | c when '\x20' <= c && c < '\x7f' -> Buffer.add_char buf c