From 1e10cfdad5aaf37353239e3f6a03dce0a6863754 Mon Sep 17 00:00:00 2001
From: Hans Dijkema <hans@dijkewijk.nl>
Date: Thu, 30 Apr 2026 12:17:41 +0200
Subject: [PATCH] small changes for testing

---
 rktplayer.rkt | 13 ++++++++-----
 1 file changed, 8 insertions(+), 5 deletions(-)

diff --git a/rktplayer.rkt b/rktplayer.rkt
index 678d692..ba60029 100644
--- a/rktplayer.rkt
+++ b/rktplayer.rkt
@@ -37,7 +37,7 @@
 
 (define rktplayer-window #f)
 
-(define (run)
+(define (run . no-exit)
   (let* ((ini (new ini% [file 'rktplayer]))
          (context (new wv-context%
                        [base-path rkt-gui-dir]
@@ -47,11 +47,14 @@
          )
     (let ((window (new rktplayer% [wv-context context] [log-file log-file])))
       (set! rktplayer-window window)
-      (webview-wait-for-quit)
-      (webview-exit)
-      (exit))
+      (when (and (not (null? no-exit))
+                 (not (eq? (car no-exit) #t)))
+        (webview-wait-for-quit)
+        (webview-exit)
+        (exit))
+      )
     )
   )
 
-(run)
+;(run)