remove "write" message at begin

This commit is contained in:
2026-04-21 15:32:16 +02:00
parent e44f51a772
commit 964a0439e6

View File

@@ -492,7 +492,7 @@
(begin (begin
;; Create window ;; Create window
(write (list wv-context html-path event-handler parent)) ;(write (list wv-context html-path event-handler parent))
(newline) (newline)
(let ((wv-parent (if (eq? parent #f) #f (hash-ref (send parent info) 'wv)))) (let ((wv-parent (if (eq? parent #f) #f (hash-ref (send parent info) 'wv))))
(set! wv (webview-create (set! wv (webview-create