diff options
Diffstat (limited to 'module/vcomponent/base.scm')
| -rw-r--r-- | module/vcomponent/base.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/module/vcomponent/base.scm b/module/vcomponent/base.scm index 3072c0a5..98b2aa89 100644 --- a/module/vcomponent/base.scm +++ b/module/vcomponent/base.scm @@ -39,9 +39,9 @@ (define-public prop (make-procedure-with-setter (lambda (attr-obj prop-key) - (hash-ref (struct-ref attr-obj 1) prop-key)) + (hash-ref (struct-ref attr-obj 1) (as-string prop-key))) (lambda (attr-obj prop-key val) - (hash-set! (struct-ref attr-obj 1) prop-key val)))) + (hash-set! (struct-ref attr-obj 1) (as-string prop-key) val)))) ;; Returns the properties of attribute as an assoc list. ;; @code{(map car <>)} leads to available properties. |