webview-get-style debugging
This commit is contained in:
@@ -1063,6 +1063,8 @@
|
|||||||
(make-hash (map (λ (e) (cons (car e) (cadr e))) (cadr style-rec)))
|
(make-hash (map (λ (e) (cons (car e) (cadr e))) (cadr style-rec)))
|
||||||
)
|
)
|
||||||
)) h)))
|
)) h)))
|
||||||
|
(displayln (format "l = ~a" l))
|
||||||
|
(write l)(newline)
|
||||||
(if (symbol? selector)
|
(if (symbol? selector)
|
||||||
(cdr (car l))
|
(cdr (car l))
|
||||||
l))))
|
l))))
|
||||||
|
|||||||
Reference in New Issue
Block a user