diff options
Diffstat (limited to 'stdlib/source/lux/time/instant.lux')
-rw-r--r-- | stdlib/source/lux/time/instant.lux | 34 |
1 files changed, 17 insertions, 17 deletions
diff --git a/stdlib/source/lux/time/instant.lux b/stdlib/source/lux/time/instant.lux index 8c61abe5c..d8fb0fe98 100644 --- a/stdlib/source/lux/time/instant.lux +++ b/stdlib/source/lux/time/instant.lux @@ -55,23 +55,23 @@ (def: (= param subject) (:: number.Equivalence<Int> = (:representation param) (:representation subject)))) - (structure: #export _ (Order Instant) - (def: eq Equivalence<Instant>) - (do-template [<name>] - [(def: (<name> param subject) - (:: number.Order<Int> <name> (:representation param) (:representation subject)))] - - [<] [<=] [>] [>=] - )) - - (structure: #export _ (Enum Instant) - (def: order Order<Instant>) - (do-template [<name>] - [(def: <name> - (|>> :representation (:: number.Enum<Int> <name>) :abstraction))] - - [succ] [pred] - )) + (`` (structure: #export _ (Order Instant) + (def: eq Equivalence<Instant>) + (~~ (do-template [<name>] + [(def: (<name> param subject) + (:: number.Order<Int> <name> (:representation param) (:representation subject)))] + + [<] [<=] [>] [>=] + )))) + + (`` (structure: #export _ (Enum Instant) + (def: order Order<Instant>) + (~~ (do-template [<name>] + [(def: <name> + (|>> :representation (:: number.Enum<Int> <name>) :abstraction))] + + [succ] [pred] + )))) ) (def: #export epoch |