From 3af5ca67fc47c6a5559595d8b890df64c55c27a6 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Wed, 26 Dec 2018 22:32:02 -0400
Subject: Small refactoring for JVM names.

---
 stdlib/source/lux/host/jvm.lux      |  6 +++---
 stdlib/source/lux/host/jvm/name.lux | 12 +++++++-----
 2 files changed, 10 insertions(+), 8 deletions(-)

(limited to 'stdlib/source')

diff --git a/stdlib/source/lux/host/jvm.lux b/stdlib/source/lux/host/jvm.lux
index 388c5cb04..cc2216502 100644
--- a/stdlib/source/lux/host/jvm.lux
+++ b/stdlib/source/lux/host/jvm.lux
@@ -1,5 +1,5 @@
 (.module:
-  [lux (#- Name)
+  [lux #*
    [data
     [format
      ["." binary (#+ Format)]]
@@ -8,7 +8,7 @@
      ["." row (#+ Row)]]]]
   [/
    ["/." version (#+ Version Minor Major)]
-   ["/." name (#+ Name)]
+   ["/." name (#+ Internal)]
    [modifier
     ["/.M" class]]
    ["/." magic (#+ Magic)]
@@ -45,7 +45,7 @@
 (def: default-minor-version Minor (/version.version 0))
 
 (def: #export (class version access super this interfaces)
-  (-> Major /classM.Modifier Name Name (List Name) Class)
+  (-> Major /classM.Modifier Internal Internal (List Internal) Class)
   (let [with-classes (: (-> Pool Pool)
                         (|>> (row.add (#/constant.UTF8 (/name.read this)))
                              (row.add (#/constant.Class (/index.index 1)))
diff --git a/stdlib/source/lux/host/jvm/name.lux b/stdlib/source/lux/host/jvm/name.lux
index d609b627d..7f2119bc0 100644
--- a/stdlib/source/lux/host/jvm/name.lux
+++ b/stdlib/source/lux/host/jvm/name.lux
@@ -1,5 +1,5 @@
 (.module:
-  [lux (#- Name)
+  [lux #*
    [data
     ["." text]]
    [type
@@ -8,23 +8,25 @@
 (def: #export internal-separator "/")
 (def: #export external-separator ".")
 
-(abstract: #export Name
+(type: #export External Text)
+
+(abstract: #export Internal
   {}
 
   Text
 
   (def: #export internal
-    (-> Text Name)
+    (-> Text Internal)
     (|>> (text.replace-all ..external-separator
                            ..internal-separator)
          :abstraction))
 
   (def: #export read
-    (-> Name Text)
+    (-> Internal Text)
     (|>> :representation))
 
   (def: #export external
-    (-> Name Text)
+    (-> Internal External)
     (|>> :representation
          (text.replace-all ..internal-separator
                            ..external-separator))))
-- 
cgit v1.2.3