diff options
author | Hugo Hörnquist <hugo@hornquist.se> | 2020-01-24 20:21:41 +0100 |
---|---|---|
committer | Hugo Hörnquist <hugo@hornquist.se> | 2020-01-24 20:23:04 +0100 |
commit | e822f7b81245c919eda8bd8ad4b482df075e0508 (patch) | |
tree | 3024a9a1a80e5c9ffd6d187a028c783dc4b7abbd /module/vcomponent/load.scm | |
parent | Extend define-many to allow a custom define procedure. (diff) | |
download | calp-e822f7b81245c919eda8bd8ad4b482df075e0508.tar.gz calp-e822f7b81245c919eda8bd8ad4b482df075e0508.tar.xz |
Start of new date structures.
Diffstat (limited to '')
-rw-r--r-- | module/vcomponent/load.scm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/module/vcomponent/load.scm b/module/vcomponent/load.scm index 574c1d20..2e69d1f5 100644 --- a/module/vcomponent/load.scm +++ b/module/vcomponent/load.scm @@ -2,7 +2,7 @@ :export (load-calendars load-calendars*) :use-module (util) :use-module (srfi srfi-1) - :use-module (srfi srfi-19) + :use-module (srfi srfi-19 alt) :use-module (srfi srfi-41) :use-module (srfi srfi-41 util) :use-module (parameters) @@ -43,5 +43,5 @@ ;; collection if sorted, but for the time beieng it's much ;; easier to always sort it. (values calendars - (sort*! regular time<? (extract 'DTSTART)) - (sort*! repeating time<? (extract 'DTSTART))))) + (sort*! regular date/-time<? (extract 'DTSTART)) + (sort*! repeating date/-time<? (extract 'DTSTART))))) |