aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/library/lux/type/unit.lux
diff options
context:
space:
mode:
authorEduardo Julian2022-03-16 08:37:23 -0400
committerEduardo Julian2022-03-16 08:37:23 -0400
commitbf53ee92fc3c33a4885aa227e55d24f7ba3cb2c4 (patch)
tree49683a62ae8e110c62b42a9a6386bb2ddb3c47c6 /stdlib/source/library/lux/type/unit.lux
parentd710d9f4fc098e7c243c8a5f23cd42683f13e07f (diff)
De-sigil-ification: prefix :
Diffstat (limited to '')
-rw-r--r--stdlib/source/library/lux/type/unit.lux34
1 files changed, 17 insertions, 17 deletions
diff --git a/stdlib/source/library/lux/type/unit.lux b/stdlib/source/library/lux/type/unit.lux
index 6da16af7e..08fc7770f 100644
--- a/stdlib/source/library/lux/type/unit.lux
+++ b/stdlib/source/library/lux/type/unit.lux
@@ -24,24 +24,24 @@
["i" int]
["[0]" ratio {"+" Ratio}]]]
[type
- abstract]]])
+ [abstract {"-" pattern}]]]])
(abstract: .public (Qty unit)
Int
(def: in'
(All (_ unit) (-> Int (Qty unit)))
- (|>> :abstraction))
+ (|>> abstraction))
(def: out'
(All (_ unit) (-> (Qty unit) Int))
- (|>> :representation))
+ (|>> representation))
(template [<name> <op>]
[(def: .public (<name> param subject)
(All (_ unit) (-> (Qty unit) (Qty unit) (Qty unit)))
- (:abstraction (<op> (:representation param)
- (:representation subject))))]
+ (abstraction (<op> (representation param)
+ (representation subject))))]
[+ i.+]
[- i.-]
@@ -50,8 +50,8 @@
(template [<name> <op> <p> <s> <p*s>]
[(def: .public (<name> param subject)
(All (_ p s) (-> (Qty <p>) (Qty <s>) (Qty <p*s>)))
- (:abstraction (<op> (:representation param)
- (:representation subject))))]
+ (abstraction (<op> (representation param)
+ (representation subject))))]
[* i.* p s [p s]]
[/ i./ p [p s] s]
@@ -60,19 +60,19 @@
(type: .public (Unit a)
(Interface
- (: (-> Int (Qty a))
- in)
- (: (-> (Qty a) Int)
- out)))
+ (is (-> Int (Qty a))
+ in)
+ (is (-> (Qty a) Int)
+ out)))
(type: .public (Scale s)
(Interface
- (: (All (_ u) (-> (Qty u) (Qty (s u))))
- scale)
- (: (All (_ u) (-> (Qty (s u)) (Qty u)))
- de_scale)
- (: Ratio
- ratio)))
+ (is (All (_ u) (-> (Qty u) (Qty (s u))))
+ scale)
+ (is (All (_ u) (-> (Qty (s u)) (Qty u)))
+ de_scale)
+ (is Ratio
+ ratio)))
(type: .public Pure
(Qty Any))