diff options
author | Hugo Hörnquist <hugo@hornquist.se> | 2019-04-20 21:59:29 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@hornquist.se> | 2019-04-20 21:59:29 +0200 |
commit | a5713a41179e0f951fb0941cdd87a19c91f76213 (patch) | |
tree | 3890a7d04efec08818fbadc38c281ded5aa5dc35 | |
parent | Fix up tests. (diff) | |
download | calp-a5713a41179e0f951fb0941cdd87a19c91f76213.tar.gz calp-a5713a41179e0f951fb0941cdd87a19c91f76213.tar.xz |
Change how properties procedure work.
Diffstat (limited to '')
-rw-r--r-- | module/vcalendar.scm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/module/vcalendar.scm b/module/vcalendar.scm index 829fdf3f..2b664b56 100644 --- a/module/vcalendar.scm +++ b/module/vcalendar.scm @@ -88,8 +88,10 @@ (lambda (attr-obj prop-key val) (hashq-set! (cdr attr-obj) prop-key val)))) -(define-public (properties component attr-key) - (hash-map->list cons (cdr (attr component (as-string attr-key))))) +;; Returns the properties of attribute as an assoc list. +;; @code{(map car <>)} leads to available properties. +(define-public (properties attrptr) + (hash-map->list cons (cdr attrptr))) ;; (define-public type %vcomponent-get-type) (define-public type (make-procedure-with-setter |