From a84061266b97236a7b116a0f9e6fafc92c64f19c Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Sat, 9 Dec 2023 00:53:28 +0100 Subject: Rename vcomponent in create module to vcomponent-create. --- module/vcomponent/create.scm | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) (limited to 'module') diff --git a/module/vcomponent/create.scm b/module/vcomponent/create.scm index d332a2c2..7ca39304 100644 --- a/module/vcomponent/create.scm +++ b/module/vcomponent/create.scm @@ -12,7 +12,7 @@ :use-module (hnh util type) :export (with-parameters as-list - vcomponent + create-vcomponent vcalendar vevent vtimezone standard daylight )) @@ -74,7 +74,7 @@ -(define (vcomponent type . attrs*) +(define (create-vcomponent type . attrs*) ;; Split the subforms into attributes and children (define-values (attrs children) (cond ((null? attrs*) (values '() '())) @@ -84,12 +84,12 @@ (define (value->vline key value) (cond ((vline? value) - (scm-error 'misc-error "vcomponent" + (scm-error 'misc-error "create-vcomponent" "Explicit VLines should never appear when creating components: ~s" (list value) #f)) ((list-value? value) - (scm-error 'misc-error "vcomponent" + (scm-error 'misc-error "create-vcomponent" "As-list can only be used at top level. key: ~s, value: ~s" (list key value) #f)) @@ -125,16 +125,16 @@ children)) (define (vcalendar . attrs) - (apply vcomponent 'VCALENDAR attrs)) + (apply create-vcomponent 'VCALENDAR attrs)) (define (vevent . attrs) - (apply vcomponent 'VEVENT attrs)) + (apply create-vcomponent 'VEVENT attrs)) (define (vtimezone . attrs) - (apply vcomponent 'VTIMEZONE attrs)) + (apply create-vcomponent 'VTIMEZONE attrs)) (define (standard . attrs) - (apply vcomponent 'STANDARD attrs)) + (apply create-vcomponent 'STANDARD attrs)) (define (daylight . attrs) - (apply vcomponent 'DAYLIGHT attrs)) + (apply create-vcomponent 'DAYLIGHT attrs)) -- cgit v1.2.3