diff options
Diffstat (limited to 'module/datetime/timespec.scm')
| -rw-r--r-- | module/datetime/timespec.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/module/datetime/timespec.scm b/module/datetime/timespec.scm index 7ea448a0..951ea729 100644 --- a/module/datetime/timespec.scm +++ b/module/datetime/timespec.scm @@ -58,8 +58,8 @@ ;; + + [(eq? (timespec-sign done) (timespec-sign spec)) - (modify done timespec-time - time+ (timespec-time spec))] + (modify done timespec-time* + (lambda (t) (time+ t (timespec-time spec))))] ;; - + [(and (eq? '- (timespec-sign done)) (eq? '+ (timespec-sign spec))) |