diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-12-09 00:53:28 +0100 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-12-09 00:55:54 +0100 |
commit | a84061266b97236a7b116a0f9e6fafc92c64f19c (patch) | |
tree | 8b6eb7e50cf35a2c516873e1718fb16bb57978ad /module | |
parent | Better table printer. (diff) | |
download | calp-a84061266b97236a7b116a0f9e6fafc92c64f19c.tar.gz calp-a84061266b97236a7b116a0f9e6fafc92c64f19c.tar.xz |
Rename vcomponent in create module to vcomponent-create.datarewrite-structures
Diffstat (limited to '')
-rw-r--r-- | module/vcomponent/create.scm | 18 |
1 files changed, 9 insertions, 9 deletions
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)) |