From 85239d2c294a28b45f46f0b1333d161a403270f6 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sat, 10 Aug 2019 23:46:33 -0400
Subject: Got the new compiler working again.

---
 new-luxc/source/luxc/lang/translation/jvm.lux | 10 ++++------
 1 file changed, 4 insertions(+), 6 deletions(-)

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

diff --git a/new-luxc/source/luxc/lang/translation/jvm.lux b/new-luxc/source/luxc/lang/translation/jvm.lux
index b2822726c..b5d53aa4f 100644
--- a/new-luxc/source/luxc/lang/translation/jvm.lux
+++ b/new-luxc/source/luxc/lang/translation/jvm.lux
@@ -10,20 +10,18 @@
     [concurrency
      ["." atom (#+ Atom atom)]]]
    [data
+    [binary (#+ Binary)]
     ["." product]
     ["." error (#+ Error)]
-    ["." text ("#/." hash)
-     format]
+    ["." text ("#@." hash)
+     ["%" format (#+ format)]]
     [collection
      ["." array]
-     [list ("#/." functor)]
      ["." dictionary (#+ Dictionary)]]]
    [target
     [jvm
      ["." loader (#+ Library)]
      ["." type (#+ Type)]]]
-   [world
-    [binary (#+ Binary)]]
    [tool
     [compiler
      ["." name]]]]
@@ -127,7 +125,7 @@
   (-> Library ClassLoader Name Inst (Error [Text Any Definition]))
   (let [class-name (format (text.replace-all .module-separator class-path-separator module)
                            class-path-separator (name.normalize name)
-                           "___" (%n (text/hash name)))]
+                           "___" (%.nat (text@hash name)))]
     (do error.monad
       [[value definition] (evaluate! library loader class-name valueI)]
       (wrap [class-name value definition]))))
-- 
cgit v1.2.3