webview-get-style debugging

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