diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-07-27 01:07:50 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-07-27 01:07:50 +0200 |
| commit | 3d2b30f5c8bfb4363eeb676257c738dd596e6191 (patch) | |
| tree | 0de106805a542b7ea0e5339355b9eba5711c1fed /module/datetime.scm | |
| parent | Improve opt parsing in test runner. (diff) | |
| download | calp-3d2b30f5c8bfb4363eeb676257c738dd596e6191.tar.gz calp-3d2b30f5c8bfb4363eeb676257c738dd596e6191.tar.xz | |
Merge mod!:s functionality into set!
Diffstat (limited to 'module/datetime.scm')
| -rw-r--r-- | module/datetime.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/module/datetime.scm b/module/datetime.scm index f20a6b8f..0a37f8df 100644 --- a/module/datetime.scm +++ b/module/datetime.scm @@ -1016,7 +1016,7 @@ (let ((sum 0)) (let ((time (fold (lambda (next done) (let* ((next-time rem (time+% done next))) - (mod! sum = (+ rem)) + (set! sum = (+ rem)) next-time)) base rest))) (values time sum)))) @@ -1066,7 +1066,7 @@ (let ((sum 0)) (let ((time (fold (lambda (next done) (let* ((next-time rem (time-% done next))) - (mod! sum = (+ rem)) + (set! sum = (+ rem)) next-time)) base rest))) (values time sum)))) |