aboutsummaryrefslogtreecommitdiff
path: root/module/vcomponent/base.scm
diff options
context:
space:
mode:
authorHugo Hörnquist <hugo@hornquist.se>2019-10-04 00:15:19 +0200
committerHugo Hörnquist <hugo@hornquist.se>2019-10-04 00:15:19 +0200
commit533b1994a73b6ae5003ad73109a600c0d05b4a92 (patch)
treeb4615e59afc7b4bb8fbd696bb9c8ceed5cce6b63 /module/vcomponent/base.scm
parentReintroduce color and name parsing. (diff)
downloadcalp-533b1994a73b6ae5003ad73109a600c0d05b4a92.tar.gz
calp-533b1994a73b6ae5003ad73109a600c0d05b4a92.tar.xz
Actually fix NAME.
Diffstat (limited to 'module/vcomponent/base.scm')
-rw-r--r--module/vcomponent/base.scm4
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.