IH-553: Optimise SExpr.unescape

Check for the presence of the escape character before rebuilding the string Signed-off-by: Edwin Török <[email protected]>
edwintorok · Apr 19, 2024 · ab4e8ce · ab4e8ce
1 parent c1b5231
commit ab4e8ce
Showing 1 changed file with 5 additions and 2 deletions.
diff --git a/ocaml/libs/sexpr/sExpr.ml b/ocaml/libs/sexpr/sExpr.ml
@@ -58,8 +58,11 @@ let escape s =
     s
 
 let unescape s =
-  let buf = Buffer.create (String.length s) in
-  unescape_buf buf s ; Buffer.contents buf
+  if String.contains s '\\' then (
+    let buf = Buffer.create (String.length s) in
+    unescape_buf buf s ; Buffer.contents buf
+  ) else
+    s
 
 let mkstring x = String (unescape x)