From 42848dd5a3b2e1d02752201343e18f075a733645 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sun, 7 May 2017 02:36:32 -0400
Subject: - Fully implemented Deg encoding/decoding in pure Lux. - No longer
 relying in LuxRT-supported implementations.

---
 stdlib/source/lux.lux | 11 ++++-------
 1 file changed, 4 insertions(+), 7 deletions(-)

(limited to 'stdlib/source/lux.lux')

diff --git a/stdlib/source/lux.lux b/stdlib/source/lux.lux
index 9de477162..344925b1f 100644
--- a/stdlib/source/lux.lux
+++ b/stdlib/source/lux.lux
@@ -2272,11 +2272,6 @@
            (|> value (i./ 10) Int/abs)
            (|> value (i.% 10) Int/abs (_lux_:! Nat) digit-to-text)))))
 
-(def:''' (Deg/encode x)
-  #Nil
-  (-> Deg Text)
-  (_lux_proc ["deg" "encode"] [x]))
-
 (def:''' (Real/encode x)
   #Nil
   (-> Real Text)
@@ -2724,7 +2719,7 @@
     (Int/encode value)
 
     [_ (#Deg value)]
-    (Deg/encode value)
+    (_lux_proc ["io" "error"] ["Undefined behavior."])
     
     [_ (#Real value)]
     (Real/encode value)
@@ -5042,7 +5037,6 @@
     ([#Bool   Bool/encode]
      [#Nat    Nat/encode]
      [#Int    Int/encode]
-     [#Deg    Deg/encode]
      [#Real   Real/encode]
      [#Char   Char/encode]
      [#Text   Text/encode]
@@ -5064,6 +5058,9 @@
     ([#Form   "(" ")" id]
      [#Tuple  "[" "]" id]
      [#Record "{" "}" rejoin-all-pairs])
+
+    [new-cursor (#Deg value)]
+    (_lux_proc ["io" "error"] ["Undefined behavior."])
     ))
 
 (def: (with-baseline baseline [file line column])
-- 
cgit v1.2.3