From fb72b937aba7886ce204379e97aa06c327a4029f Mon Sep 17 00:00:00 2001 From: Eduardo Julian Date: Sun, 6 May 2018 23:27:12 -0400 Subject: - Implemented Nat functionality in pure Lux. --- .../source/luxc/lang/extension/analysis/common.lux | 20 ++------------------ 1 file changed, 2 insertions(+), 18 deletions(-) (limited to 'new-luxc/source/luxc/lang/extension/analysis') 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) - (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) (dict.merge lux-procs) (dict.merge bit-procs) - (dict.merge nat-procs) (dict.merge int-procs) (dict.merge deg-procs) (dict.merge frac-procs) -- cgit v1.2.3