1 files changed, 11 insertions, 2 deletions
diff --git a/module/vcalendar.scm b/module/vcalendar.scm
index 0f1a3c57..ab404a1a 100644
--- a/module/vcalendar.scm
+++ b/module/vcalendar.scm
@@ -45,8 +45,17 @@
    (as-string attr)
    (as-string prop)))
 
-;; TODO replace this with procedure-with-setter
-(define-public prop get-property)
+(define (set-property! component attr prop val)
+  (%vcomponent-set-property!
+   component
+   (as-string attr)
+   (as-string prop)
+   val))
+
+(define-public prop
+  (make-procedure-with-setter
+   get-property
+   set-property!))
 
 (define-public (properties component attr)
   (%vcomponent-property-list component (as-string attr)))