diff options
Diffstat (limited to 'stdlib/source/lux/time/instant.lux')
| -rw-r--r-- | stdlib/source/lux/time/instant.lux | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/stdlib/source/lux/time/instant.lux b/stdlib/source/lux/time/instant.lux index 12fe66172..1a2af827e 100644 --- a/stdlib/source/lux/time/instant.lux +++ b/stdlib/source/lux/time/instant.lux @@ -24,37 +24,37 @@ (def: #export from-millis (-> Int Instant) - (|>> @abstraction)) + (|>> :abstraction)) (def: #export to-millis (-> Instant Int) - (|>> @representation)) + (|>> :representation)) (def: #export (span from to) (-> Instant Instant duration.Duration) - (duration.from-millis (i/- (@representation from) (@representation to)))) + (duration.from-millis (i/- (:representation from) (:representation to)))) (def: #export (shift duration instant) (-> duration.Duration Instant Instant) - (@abstraction (i/+ (duration.to-millis duration) (@representation instant)))) + (:abstraction (i/+ (duration.to-millis duration) (:representation instant)))) (def: #export (relative instant) (-> Instant duration.Duration) - (|> instant @representation duration.from-millis)) + (|> instant :representation duration.from-millis)) (def: #export (absolute offset) (-> duration.Duration Instant) - (|> offset duration.to-millis @abstraction)) + (|> offset duration.to-millis :abstraction)) (struct: #export _ (Eq Instant) (def: (= param subject) - (:: number.Eq<Int> = (@representation param) (@representation subject)))) + (:: number.Eq<Int> = (:representation param) (:representation subject)))) (struct: #export _ (Order Instant) (def: eq Eq<Instant>) (do-template [<name>] [(def: (<name> param subject) - (:: number.Order<Int> <name> (@representation param) (@representation subject)))] + (:: number.Order<Int> <name> (:representation param) (:representation subject)))] [<] [<=] [>] [>=] )) @@ -63,7 +63,7 @@ (def: order Order<Instant>) (do-template [<name>] [(def: <name> - (|>> @representation (:: number.Enum<Int> <name>) @abstraction))] + (|>> :representation (:: number.Enum<Int> <name>) :abstraction))] [succ] [pred] )) |