diff options
Diffstat (limited to '')
-rw-r--r-- | module/datetime/timespec.scm | 8 |
1 files 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)) |