aboutsummaryrefslogtreecommitdiff
path: root/new-luxc/source/luxc/lang/extension
diff options
context:
space:
mode:
Diffstat (limited to 'new-luxc/source/luxc/lang/extension')
-rw-r--r--new-luxc/source/luxc/lang/extension/analysis/common.lux20
1 files changed, 2 insertions, 18 deletions
diff --git a/new-luxc/source/luxc/lang/extension/analysis/common.lux b/new-luxc/source/luxc/lang/extension/analysis/common.lux
index c63d063cd..1d4429e09 100644
--- a/new-luxc/source/luxc/lang/extension/analysis/common.lux
+++ b/new-luxc/source/luxc/lang/extension/analysis/common.lux
@@ -209,22 +209,6 @@
(install "arithmetic-right-shift" (binary Int Nat Int))
)))
-(def: nat-procs
- Bundle
- (<| (prefix "nat")
- (|> (dict.new text.Hash<Text>)
- (install "+" (binary Nat Nat Nat))
- (install "-" (binary Nat Nat Nat))
- (install "*" (binary Nat Nat Nat))
- (install "/" (binary Nat Nat Nat))
- (install "%" (binary Nat Nat Nat))
- (install "=" (binary Nat Nat Bool))
- (install "<" (binary Nat Nat Bool))
- (install "min" (nullary Nat))
- (install "max" (nullary Nat))
- (install "to-int" (unary Nat Int))
- (install "char" (unary Nat Text)))))
-
(def: int-procs
Bundle
(<| (prefix "int")
@@ -239,7 +223,8 @@
(install "min" (nullary Int))
(install "max" (nullary Int))
(install "to-nat" (unary Int Nat))
- (install "to-frac" (unary Int Frac)))))
+ (install "to-frac" (unary Int Frac))
+ (install "char" (unary Int Text)))))
(def: deg-procs
Bundle
@@ -453,7 +438,6 @@
(|> (dict.new text.Hash<Text>)
(dict.merge lux-procs)
(dict.merge bit-procs)
- (dict.merge nat-procs)
(dict.merge int-procs)
(dict.merge deg-procs)
(dict.merge frac-procs)