diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-11-14 04:59:21 +0100 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-11-16 00:51:19 +0100 |
| commit | e121b12583d5109c09a8ac019709cb56192a1f55 (patch) | |
| tree | 6905884333a6fa004e5bc66c39b8037c85b040c4 | |
| parent | Tests for vcomponent datetime and create. (diff) | |
| download | calp-e121b12583d5109c09a8ac019709cb56192a1f55.tar.gz calp-e121b12583d5109c09a8ac019709cb56192a1f55.tar.xz | |
Minor comment changes.
| -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))))) |