diff options
| author | Hugo Hörnquist <hugo@hornquist.se> | 2019-10-06 22:48:56 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@hornquist.se> | 2019-10-06 22:48:56 +0200 |
| commit | 7578a9c3375a364e5fd2bf629811394208c4cf5e (patch) | |
| tree | b106aac4b68520c852b1f2e0eea8b208d801b17d | |
| parent | Fix re-export of add-child! (diff) | |
| download | calp-7578a9c3375a364e5fd2bf629811394208c4cf5e.tar.gz calp-7578a9c3375a364e5fd2bf629811394208c4cf5e.tar.xz | |
Fix property access.
| -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. |