guile-pstk

commit 5d1c341d1e1953aadde1204fc6bb4dd566cd524a
parent 2af4abbaabc1b0724b722bcc2643f084daf70ce9
Author: Yuval Langer <yuval.langer@gmail.com>
Date:   Sun, 16 Jun 2024 04:15:47 +0300

Merge the one armed `if` with the above `cond` case.

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

1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/pstk.scm b/pstk.scm
@@ -822,9 +822,9 @@ proc evalCmdFromScm {cmd {properly 0}} {
         (apply call-by-key (cdr tk-statement)))))
 
 (define (loop)
-  (cond ((not tk-is-running)
-         (if wish-output
-             (tk/wm 'protocol tk 'WM_DELETE_WINDOW '())))
+  (cond ((and (not tk-is-running)
+              wish-output)
+         (tk/wm 'protocol tk 'WM_DELETE_WINDOW '()))
         (else (dispatch-event)
               (loop))))