From 1365ff08f5e4f32028eb33e3b18b28af15cde7c5 Mon Sep 17 00:00:00 2001 From: Hans Dijkema Date: Sun, 12 Apr 2026 12:45:33 +0200 Subject: [PATCH] Corrected esc-quote and esc-dbl-quote --- private/utils.rkt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/private/utils.rkt b/private/utils.rkt index aa14542..28687e3 100644 --- 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))