guile-pstk

commit 01d84ab520ec47eef41428132a07bc278649cd23
parent 4a7a142df3b0d290c2e257eff8aedc56512cdef4
Author: Yuval Langer <yuval.langer@gmail.com>
Date:   Sat, 22 Jun 2024 12:50:16 +0300

Convert a single clause `cond` to a `when`.

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

1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/pstk.scm b/pstk.scm
@@ -639,10 +639,10 @@
 (define (wish . arguments)
   (for-each
    (lambda (argument)
-     (cond (*wish-debug-input*
-            (display "scheme->wish: ")
-            (display argument)
-            (newline)))
+     (when *wish-debug-input*
+       (display "scheme->wish: ")
+       (display argument)
+       (newline))
      (display argument wish-input)
      (newline wish-input)
      (flush-wish))