- Implemented Nat functionality in pure Lux.

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)