diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-06-12 22:45:46 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-06-12 22:45:46 +0200 |
| commit | 5f423b6b6a28b425349c262f80dbab4a33d6d69c (patch) | |
| tree | 22f8c6d2c69884457f731e5bdfa4fb3324224686 | |
| parent | Add timespec tests. (diff) | |
| download | calp-5f423b6b6a28b425349c262f80dbab4a33d6d69c.tar.gz calp-5f423b6b6a28b425349c262f80dbab4a33d6d69c.tar.xz | |
Fix timespec.
| -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)) |