racket webview qt finalizer next

racket-webview-qt.rkt

@@ -830,10 +830,14 @@
                         (handle (cdr kv)))
                     (rkt-webview-close handle)))
                 open-windows)))
+  (displayln "Sending guard-stop message to event callback")
   (event-callback evt-guard-stop)
+  (displayln "Cleaning up FFI library")
   (rkt_webview_cleanup)
   (unless (eq? message #f) (error message))
+  (displayln "Stopping event processing thread (kill-thread)"
   (stop-event-processing)
+  (displayln "Finalizer done")
   )
 
 (define (rkt-webview-exit . args)