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)))