diff options
Diffstat (limited to '')
| -rw-r--r-- | stdlib/source/lux/time/day.lux | 15 |
1 files changed, 4 insertions, 11 deletions
diff --git a/stdlib/source/lux/time/day.lux b/stdlib/source/lux/time/day.lux index 87c603937..a3f3fb3f2 100644 --- a/stdlib/source/lux/time/day.lux +++ b/stdlib/source/lux/time/day.lux @@ -42,17 +42,10 @@ #Friday 5 #Saturday 6)) -(`` (structure: #export order (Order Day) - (def: &equivalence ..equivalence) - (~~ (template [<name> <comp>] - [(def: (<name> reference sample) - (<comp> (day-to-nat reference) (day-to-nat sample)))] - - [< n/<] - [<= n/<=] - [> n/>] - [>= n/>=] - )))) +(structure: #export order (Order Day) + (def: &equivalence ..equivalence) + (def: (< reference sample) + (n/< (day-to-nat reference) (day-to-nat sample)))) (structure: #export enum (Enum Day) (def: &order ..order) |