From 8787650c4b1641832db9df2c35bc3046e886220e Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sun, 6 May 2018 00:45:45 -0400
Subject: - Updated new-luxc to the latest stdlib changes.

---
 new-luxc/source/luxc/lang/host.jvm.lux | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

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

diff --git a/new-luxc/source/luxc/lang/host.jvm.lux b/new-luxc/source/luxc/lang/host.jvm.lux
index b9261f7b0..5819e5126 100644
--- a/new-luxc/source/luxc/lang/host.jvm.lux
+++ b/new-luxc/source/luxc/lang/host.jvm.lux
@@ -7,7 +7,7 @@
        (data ["e" error]
              [text]
              text/format
-             (coll [dict]
+             (coll (dictionary ["dict" unordered])
                    [array]))
        [macro]
        [host #+ do-to object]
@@ -97,13 +97,13 @@
   (.function (_ compiler)
     (let [old (:! commonT.Host (get@ #.host compiler))]
       (case (expr (set@ #.host
-                        (:! Void (set@ #commonT.anchor (#.Some anchor) old))
+                        (:! Bottom (set@ #commonT.anchor (#.Some anchor) old))
                         compiler))
         (#e.Success [compiler' output])
         (#e.Success [(update@ #.host
                               (|>> (:! commonT.Host)
                                    (set@ #commonT.anchor (get@ #commonT.anchor old))
-                                   (:! Void))
+                                   (:! Bottom))
                               compiler')
                      output])
 
@@ -129,13 +129,13 @@
   (.function (_ compiler)
     (let [old (:! commonT.Host (get@ #.host compiler))]
       (case (expr (set@ #.host
-                        (:! Void (set@ #commonT.context [(&.normalize-name name) +0] old))
+                        (:! Bottom (set@ #commonT.context [(&.normalize-name name) +0] old))
                         compiler))
         (#e.Success [compiler' output])
         (#e.Success [(update@ #.host
                               (|>> (:! commonT.Host)
                                    (set@ #commonT.context (get@ #commonT.context old))
-                                   (:! Void))
+                                   (:! Bottom))
                               compiler')
                      output])
 
@@ -149,13 +149,13 @@
           [old-name old-sub] (get@ #commonT.context old)
           new-name (format old-name "$" (%i (nat-to-int old-sub)))]
       (case (expr (set@ #.host
-                        (:! Void (set@ #commonT.context [new-name +0] old))
+                        (:! Bottom (set@ #commonT.context [new-name +0] old))
                         compiler))
         (#e.Success [compiler' output])
         (#e.Success [(update@ #.host
                               (|>> (:! commonT.Host)
                                    (set@ #commonT.context [old-name (n/inc old-sub)])
-                                   (:! Void))
+                                   (:! Bottom))
                               compiler')
                      [new-name output]])
 
-- 
cgit v1.2.3