From 7578a9c3375a364e5fd2bf629811394208c4cf5e Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Sun, 6 Oct 2019 22:48:56 +0200 Subject: Fix property access. --- module/vcomponent/base.scm | 4 ++-- 1 file 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. -- cgit v1.2.3