From 50cc5fbe7cc8abde05085944393fcec4c791402f Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Tue, 5 Sep 2017 18:36:09 -0400
Subject: - Updated new compiler's code to the recent changes in the language.
 - WIP: Some other changes/additions to the new compiler.

---
 new-luxc/source/luxc/generator/host/jvm/def.lux | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'new-luxc/source/luxc/generator/host/jvm/def.lux')

diff --git a/new-luxc/source/luxc/generator/host/jvm/def.lux b/new-luxc/source/luxc/generator/host/jvm/def.lux
index 8931db940..8b961b29a 100644
--- a/new-luxc/source/luxc/generator/host/jvm/def.lux
+++ b/new-luxc/source/luxc/generator/host/jvm/def.lux
@@ -62,7 +62,7 @@
   (-> (List Text) (a;Array Text))
   (let [output (host;array String (list;size values))]
     (exec (L/map (function [[idx value]]
-                   (host;array-store idx value output))
+                   (host;array-write idx value output))
                  (list;enumerate values))
       output)))
 
@@ -261,8 +261,8 @@
   [short-field   Int  $t;short   host;l2s]
   [int-field     Int  $t;int     host;l2i]
   [long-field    Int  $t;long    id]
-  [float-field   Real $t;float   host;d2f]
-  [double-field  Real $t;double  id]
+  [float-field   Frac $t;float   host;d2f]
+  [double-field  Frac $t;double  id]
   [char-field    Nat  $t;char    (|>. nat-to-int host;l2i host;i2c)]
   [string-field  Text ($t;class "java.lang.String" (list)) id]
   )
-- 
cgit v1.2.3