diff options
Diffstat (limited to 'new-luxc/source/luxc/lang/extension/analysis/common.lux')
| -rw-r--r-- | new-luxc/source/luxc/lang/extension/analysis/common.lux | 20 |
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) |