Corrected esc-quote and esc-dbl-quote

2026-04-12 12:45:33 +02:00
parent 6566b04606
commit 1365ff08f5
1 changed files with 2 additions and 2 deletions
--- a/private/utils.rkt
+++ b/private/utils.rkt
@@ -101,10 +101,10 @@
    )))

 (define (esc-quote str)
-  (string-replace str "'" "\\'"))
+  (string-replace (string-replace str "\\" "\\\\") "'" "\\'"))

 (define (esc-double-quote str)
-  (string-replace str "\"" "\\\""))
+  (string-replace (string-replace str "\\" "\\\\") "\"" "\\\""))
               
 (define (fromJson str)
  (with-input-from-string str read-json))