- Implemented Deg functionality in pure Lux.

1 files changed, 1 insertions, 15 deletions

diff --git a/new-luxc/source/luxc/lang/translation/scheme/runtime.jvm.lux b/new-luxc/source/luxc/lang/translation/scheme/runtime.jvm.lux
index e8016eb0a..c4cd0a909 100644
--- a/new-luxc/source/luxc/lang/translation/scheme/runtime.jvm.lux
+++ b/new-luxc/source/luxc/lang/translation/scheme/runtime.jvm.lux
@@ -236,19 +236,6 @@
   Runtime
   (_.begin (list @@bit//logical-right-shift)))
 
-(def: int-high (bit//logical-right-shift (_.int 32)))
-(def: int-low (_.bit-and (_.int (hex "FFFFFFFF"))))
-
-(runtime: (frac//to-deg input)
-  (with-vars [two32 shifted]
-    (_.let* (list [two32 (|> (_.float 2.0) (_.expt (_.float 32.0)))]
-                  [shifted (|> (@@ input) (_.mod (_.float 1.0)) (_.* (@@ two32)))])
-            (let [low (|> (@@ shifted) (_.mod (_.float 1.0)) (_.* (@@ two32)) as-integer)
-                  high (|> (@@ shifted) as-integer)]
-              (|> high
-                  (_.arithmetic-shift (_.int 32))
-                  (_.+ low))))))
-
 (runtime: (frac//decode input)
   (with-vars [output]
     (_.let (list [output ((_.apply1 (_.global "string->number")) (@@  input))])
@@ -260,8 +247,7 @@
 (def: runtime//frac
   Runtime
   (_.begin
-   (list @@frac//to-deg
-         @@frac//decode)))
+   (list @@frac//decode)))
 
 ## (def: runtime//text
 ##   Runtime