Better logging small bug in wv-dialog, conversion to stdio.

2026-08-03 13:44:01 +02:00
parent 1ecb678e38
commit dbf108a601
8 changed files with 78 additions and 19 deletions
@@ -53,11 +53,11 @@
        (let ((d* (string->symbol (format "~a" (car d)))))
          (webview-set-style! wv element-id (list 'display d*))))
      (let ((style-hash (webview-get-style wv element-id 'display)))
-        (displ "style-hash: ") (write style-hash) (newline)
+        ;(displ "style-hash: ") (write style-hash) (newline)
        (let ((display-style (hash-ref (if (eq? style-hash #f)
                                           (make-hash)
                                           style-hash) 'display #f)))
-          (displayln display-style)
+          ;(displayln display-style)
          (if (eq? display-style #f)
              #f
              (string->symbol display-style)))))