From 93453c351fa2910916ff147bf4827db727912cc2 Mon Sep 17 00:00:00 2001 From: Hans Dijkema Date: Thu, 30 Jul 2026 14:59:39 +0200 Subject: [PATCH] webview-get-style debugging --- racket-webview.rkt | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/racket-webview.rkt b/racket-webview.rkt index d36f324..cdde989 100644 --- a/racket-webview.rkt +++ b/racket-webview.rkt @@ -144,6 +144,10 @@ ;test ) + +(define (to-symbol s) + (string->symbol (format "~a" s))) + ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Web server ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; @@ -1060,7 +1064,7 @@ (let ((id-rec (car e)) (style-rec (cadr e))) (cons (string->symbol (cadr id-rec)) - (make-hash (map (λ (e) (cons (car e) (cadr e))) (cadr style-rec))) + (make-hash (map (λ (e) (cons (to-symbol (car e)) (cadr e))) (cadr style-rec))) ) )) h))) (displayln (format "l = ~a" l))