diff options
| -rw-r--r-- | module/datetime/zic.scm | 2 | ||||
| -rw-r--r-- | module/vcomponent/base.scm | 1 |
2 files changed, 2 insertions, 1 deletions
diff --git a/module/datetime/zic.scm b/module/datetime/zic.scm index d5b6ba48..e574b94e 100644 --- a/module/datetime/zic.scm +++ b/module/datetime/zic.scm @@ -111,7 +111,7 @@ (link-name type: string? keyword: name) (link-target type: string? keyword: target)) -(define-type (zoneinfo) ; EXPORTED +(define-type (zoneinfo) ; EXPORTED? (zoneinfo-rules type: hash-table? keyword: rules) ; (map symbol? (list <rule>) (zoneinfo-zones type: hash-table? keyword: zones) ; (map string? (list <zone-entry>)) ) diff --git a/module/vcomponent/base.scm b/module/vcomponent/base.scm index 4cacbb46..39b2c810 100644 --- a/module/vcomponent/base.scm +++ b/module/vcomponent/base.scm @@ -121,6 +121,7 @@ (modify parent* vcomponent-children (lambda (table) (let ((child + ;; TODO is this the correct place to generate UIDs? (if (prop child 'UID) child (prop child 'UID (uuid))))) |