diff options
Diffstat (limited to 'stdlib/source/lux/time/instant.lux')
| -rw-r--r-- | stdlib/source/lux/time/instant.lux | 15 |
1 files changed, 2 insertions, 13 deletions
diff --git a/stdlib/source/lux/time/instant.lux b/stdlib/source/lux/time/instant.lux index b9d504f1a..a8d308951 100644 --- a/stdlib/source/lux/time/instant.lux +++ b/stdlib/source/lux/time/instant.lux @@ -107,17 +107,6 @@ (recur (dec reference) (duration.merge year time-left))) )))) -(def: normal-months - (Row Nat) - (row 31 28 31 - 30 31 30 - 31 31 30 - 31 30 31)) - -(def: leap-year-months - (Row Nat) - (row.update [1] inc normal-months)) - (def: (find-month months time) (-> (Row Nat) duration.Duration [Nat duration.Duration]) (if (order.>= duration.order duration.empty time) @@ -254,8 +243,8 @@ ## (and (i.>= +1 utc-month) ## (i.<= +12 utc-month))) ## #let [months (if (leap-year? utc-year) -## leap-year-months -## normal-months) +## date.leap-year-months +## date.common-months) ## month-days (|> months ## (row.nth (.nat (dec utc-month))) ## maybe.assume)] |