diff options
Diffstat (limited to 'stdlib/source/lux/time/instant.lux')
| -rw-r--r-- | stdlib/source/lux/time/instant.lux | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/stdlib/source/lux/time/instant.lux b/stdlib/source/lux/time/instant.lux index 22d57a06e..018eeb936 100644 --- a/stdlib/source/lux/time/instant.lux +++ b/stdlib/source/lux/time/instant.lux @@ -115,14 +115,14 @@ (def: (find-month months time) (-> (Sequence Nat) duration.Duration [Nat duration.Duration]) (if (duration/>= duration.empty time) - (sequence/fold (function [month-days [current-month time-left]] + (sequence/fold (function (_ month-days [current-month time-left]) (let [month-duration (duration.scale (nat-to-int month-days) duration.day)] (if (i/= 0 (duration.query month-duration time-left)) [current-month time-left] [(n/inc current-month) (duration.merge (duration.scale -1 month-duration) time-left)]))) [+0 time] months) - (sequence/fold (function [month-days [current-month time-left]] + (sequence/fold (function (_ month-days [current-month time-left]) (let [month-duration (duration.scale (nat-to-int month-days) duration.day)] (if (i/= 0 (duration.query month-duration time-left)) [current-month time-left] |