From 5f423b6b6a28b425349c262f80dbab4a33d6d69c Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Sun, 12 Jun 2022 22:45:46 +0200 Subject: Fix timespec. --- module/datetime/timespec.scm | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/module/datetime/timespec.scm b/module/datetime/timespec.scm index 099634b6..49a2d90e 100644 --- a/module/datetime/timespec.scm +++ b/module/datetime/timespec.scm @@ -50,8 +50,10 @@ (time-b (timespec-time spec))) (if (time< time-a time-b) (make-timespec (time- time-b time-a) + '- (timespec-type done)) + (make-timespec (time- time-a time-b) '+ (timespec-type done)) - (set (timespec-time done) (time- time-b))))] + ))] ;; + - [(and (eq? '+ (timespec-sign done)) (eq? '- (timespec-sign spec))) @@ -60,7 +62,9 @@ (if (time< time-a time-b) (make-timespec (time- time-b time-a) '- (timespec-type done)) - (set (timespec-time done) (time+ time-b))))])) + (make-timespec (time- time-a time-b) + '+ (timespec-type done)) + ))])) (timespec-zero) specs)) -- cgit v1.2.3