From b36470814899915cf1846f15aec0098754cf06ed Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Sat, 20 Apr 2019 21:39:32 +0200 Subject: Change parse-datetime back to single return. --- module/vcalendar/datetime.scm | 12 +++++------- 1 file changed, 5 insertions(+), 7 deletions(-) (limited to 'module/vcalendar/datetime.scm') diff --git a/module/vcalendar/datetime.scm b/module/vcalendar/datetime.scm index 9b1cc82d..b27ce2b0 100644 --- a/module/vcalendar/datetime.scm +++ b/module/vcalendar/datetime.scm @@ -13,13 +13,11 @@ ;;; date time pointer (define (parse-datetime dtime) "Parse the given date[time] string into a date object." - (let* ((str type (case (string-length dtime) - ((8) (values "~Y~m~d" 'all-day)) ; All day - ((15) (values "~Y~m~dT~H~M~S" 'local)) ; "local" or TZID-param - ((16) (values "~Y~m~dT~H~M~S~z" 'utc)) ; UTC-time - )) - (date (string->date dtime str))) - (values date type))) + (string->date + dtime (case (string-length dtime) + ((8) "~Y~m~d") ; All day + ((15) "~Y~m~dT~H~M~S") ; "local" or TZID-param + ((16) "~Y~m~dT~H~M~S~z")))) ; UTC-time (define (event-overlaps? event begin end) "Returns if the event overlaps the timespan. -- cgit v1.2.3