From a5713a41179e0f951fb0941cdd87a19c91f76213 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Sat, 20 Apr 2019 21:59:29 +0200 Subject: Change how properties procedure work. --- module/vcalendar.scm | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'module/vcalendar.scm') 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 -- cgit v1.2.3