diff options
Diffstat (limited to '')
-rw-r--r-- | stdlib/source/test/lux/time/instant.lux | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/stdlib/source/test/lux/time/instant.lux b/stdlib/source/test/lux/time/instant.lux index a7659421a..b9b2996e6 100644 --- a/stdlib/source/test/lux/time/instant.lux +++ b/stdlib/source/test/lux/time/instant.lux @@ -15,7 +15,7 @@ ["." io]] [data [collection - ["." list ("#\." fold)]]] + ["." list ("#\." mix)]]] [math ["." random]] [time @@ -71,9 +71,9 @@ (_.cover [/.day_of_week] (let [apply (: (-> (-> Duration Duration) (-> Day Day) Nat Bit) (function (_ polarity move steps) - (let [day_shift (list\fold (function.constant move) - d0 - (list.repeated steps [])) + (let [day_shift (list\mix (function.constant move) + d0 + (list.repeated steps [])) instant_shift (|> instant (/.after (polarity (duration.up steps duration.day))) /.day_of_week)] |