From 62b2af086af992307f37babdec3b47a54eb362c1 Mon Sep 17 00:00:00 2001
From: Hans Dijkema <hans@dijkewijk.nl>
Date: Thu, 30 Jul 2026 14:56:05 +0200
Subject: [PATCH] webview-get-style debugging

---
 wv-element.rkt | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/wv-element.rkt b/wv-element.rkt
index dfcbe4b..aa20868 100644
--- a/wv-element.rkt
+++ b/wv-element.rkt
@@ -7,6 +7,8 @@
 
 (provide wv-element%)
 
+(define displ display)
+
 (define wv-element%
   (class object%
     (init-field window
@@ -51,7 +53,7 @@
         (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)))
-        (display "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)))