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))