diff options
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 |