diff options
author | Hugo Hörnquist <hugo@hornquist.se> | 2019-10-04 00:15:19 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@hornquist.se> | 2019-10-04 00:15:19 +0200 |
commit | 533b1994a73b6ae5003ad73109a600c0d05b4a92 (patch) | |
tree | b4615e59afc7b4bb8fbd696bb9c8ceed5cce6b63 /module/vcomponent/base.scm | |
parent | Reintroduce color and name parsing. (diff) | |
download | calp-533b1994a73b6ae5003ad73109a600c0d05b4a92.tar.gz calp-533b1994a73b6ae5003ad73109a600c0d05b4a92.tar.xz |
Actually fix NAME.
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 399f7af9..3bd58c21 100644 --- a/module/vcomponent/base.scm +++ b/module/vcomponent/base.scm @@ -52,9 +52,9 @@ (define-public prop (make-procedure-with-setter (lambda (attr-obj prop-key) - (hashq-ref (struct-ref attr-obj 1) prop-key)) + (hash-ref (struct-ref attr-obj 1) prop-key)) (lambda (attr-obj prop-key val) - (hashq-set! (struct-ref attr-obj 1) prop-key val)))) + (hash-set! (struct-ref attr-obj 1) prop-key val)))) ;; Returns the properties of attribute as an assoc list. ;; @code{(map car <>)} leads to available properties. |