webview-get-style debugging

2026-07-30 14:59:39 +02:00
parent 62b2af086a
commit 93453c351f
1 changed files with 5 additions and 1 deletions
@@ -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))