guile-pstk

commit d0d49037f4830bc21de59c94b2e6eea3a90359aa
parent 3f07663a68e5831b756872f8a1643b19454cc7b9
Author: Yuval Langer <yuval.langer@gmail.com>
Date:   Sat, 15 Jun 2024 20:23:41 +0300

Beautify some lists.

Diffstat:
M
pstk.scm
 | 
12
++++++++----

1 file changed, 8 insertions(+), 4 deletions(-)
diff --git a/pstk.scm b/pstk.scm
@@ -663,10 +663,13 @@
              (string-append
               " \""
               (string-translate x
-                                '((#\\ . "\\\\") (#\" . "\\\"")
-                                  (#\[ . "\\u005b") (#\] . "\\]")
+                                '((#\" . "\\\"")
                                   (#\$ . "\\u0024")
-                                  (#\{ . "\\{") (#\} . "\\}")))
+                                  (#\[ . "\\u005b")
+                                  (#\\ . "\\\\")
+                                  (#\] . "\\]")
+                                  (#\{ . "\\{")
+                                  (#\} . "\\}")))
               "\"")))
         (else (string-append " " (form->string x)))))
 
@@ -722,7 +725,8 @@
   (wish (string-append
          "evalCmdFromScm \""
          (string-translate cmd
-                           '((#\\ . "\\\\") (#\" . "\\\"")))
+                           '((#\" . "\\\"")
+                             (#\\ . "\\\\")))
          "\""))
   (let again ((result (read-wish)))
     (cond ((not (pair? result))