diff options
Diffstat (limited to '')
-rw-r--r-- | stdlib/source/lux/time/month.lux | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/stdlib/source/lux/time/month.lux b/stdlib/source/lux/time/month.lux index f33a4e11c..dcfd3d1a2 100644 --- a/stdlib/source/lux/time/month.lux +++ b/stdlib/source/lux/time/month.lux @@ -49,7 +49,7 @@ _ false))) -(with-expansions [<pairs> (as-is [01 #January] +(with_expansions [<pairs> (as_is [01 #January] [02 #February] [03 #March] [04 #April] @@ -68,17 +68,17 @@ [<month> <number>]) (<pairs>))) - (exception: #export (invalid-month {number Nat}) + (exception: #export (invalid_month {number Nat}) (exception.report ["Number" (\ n.decimal encode number)])) - (def: #export (by-number number) + (def: #export (by_number number) (-> Nat (Try Month)) (case number (^template [<number> <month>] [<number> (#try.Success <month>)]) (<pairs>) - _ (exception.throw ..invalid-month [number]))) + _ (exception.throw ..invalid_month [number]))) ) (structure: #export order @@ -145,7 +145,7 @@ [30 #November] [31 #December]))) -(def: #export (leap-year-days month) +(def: #export (leap_year_days month) (-> Month Nat) (case month #February (inc (..days month)) |