From c15092022b484eaf52a34bd3ac1bec2ecf15efd9 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Mon, 20 Feb 2017 18:51:39 -0400
Subject: - Some minor refactoring.

---
 luxc/src/lux/compiler/js/base.clj   |  6 ++++++
 luxc/src/lux/compiler/js/lux.clj    | 14 ++++----------
 luxc/src/lux/compiler/jvm/cache.clj |  2 --
 3 files changed, 10 insertions(+), 12 deletions(-)

(limited to 'luxc/src')

diff --git a/luxc/src/lux/compiler/js/base.clj b/luxc/src/lux/compiler/js/base.clj
index 044a4f099..fcf8a248c 100644
--- a/luxc/src/lux/compiler/js/base.clj
+++ b/luxc/src/lux/compiler/js/base.clj
@@ -195,3 +195,9 @@
                     (do (.mkdirs (File. module-dir))
                       (&&/write-file (str module-dir java.io.File/separator (&host/def-name name) ".js") (.getBytes script)))))]]
     (return nil)))
+
+(defn js-module [module]
+  (string/replace module "/" "$"))
+
+(defn js-var-name [module name]
+  (str (js-module module) "$" (&host/def-name name)))
diff --git a/luxc/src/lux/compiler/js/lux.clj b/luxc/src/lux/compiler/js/lux.clj
index 39f943dda..0f86d8a33 100644
--- a/luxc/src/lux/compiler/js/lux.clj
+++ b/luxc/src/lux/compiler/js/lux.clj
@@ -19,12 +19,6 @@
             ))
 
 ;; [Utils]
-(defn ^:private js-module [module]
-  (string/replace module "/" "$"))
-
-(defn ^:private js-var-name [module name]
-  (str (js-module module) "$" (&host/def-name name)))
-
 (defn ^:private captured-name [register]
   (str "$" register))
 
@@ -84,7 +78,7 @@
   (return (captured-name ?captured-id)))
 
 (defn compile-global [module name]
-  (return (js-var-name module name)))
+  (return (&&/js-var-name module name)))
 
 (defn compile-apply [compile ?fn ?args]
   (|do [=fn (compile ?fn)
@@ -276,7 +270,7 @@
 
 (defn compile-function [compile arity ?scope ?env ?body]
   (|do [:let [??scope (&/|reverse ?scope)
-              function-name (str (js-module (&/|head ??scope))
+              function-name (str (&&/js-module (&/|head ??scope))
                                  "$" (&host/location (&/|tail ??scope)))
               func-args (->> (&/|range* 0 (dec arity))
                              (&/|map (fn [register] (str "var " (register-name (inc register)) " = arguments[" register "];")))
@@ -325,7 +319,7 @@
     (|case (&a-meta/meta-get &a-meta/alias-tag def-meta)
       (&/$Some (&/$IdentA [r-module r-name]))
       (if (= 1 (&/|length def-meta))
-        (|do [def-value (&&/run-js! (js-var-name r-module r-name))
+        (|do [def-value (&&/run-js! (&&/js-var-name r-module r-name))
               def-type (&a-module/def-type r-module r-name)
               _ (&/without-repl-closure
                  (&a-module/define module-name ?name def-type def-meta def-value))]
@@ -336,7 +330,7 @@
       (&/fail-with-loc "[Compilation Error] Invalid syntax for lux;alias meta-data. Must be an Ident.")
       
       _
-      (|do [:let [var-name (js-var-name module-name ?name)]
+      (|do [:let [var-name (&&/js-var-name module-name ?name)]
             =body (compile ?body)
             :let [def-js (str "var " var-name " = " =body ";")
                   is-type? (|case (&a-meta/meta-get &a-meta/type?-tag def-meta)
diff --git a/luxc/src/lux/compiler/jvm/cache.clj b/luxc/src/lux/compiler/jvm/cache.clj
index c6549a718..a42c7afdd 100644
--- a/luxc/src/lux/compiler/jvm/cache.clj
+++ b/luxc/src/lux/compiler/jvm/cache.clj
@@ -31,8 +31,6 @@
   "(-> Text Class Object)"
   (-> class ^Field (.getField field-name) (.get nil)))
 
-(def ^:private module-class-file (str &/module-class-name ".class"))
-
 ;; [Resources]
 (defn load-def-value [module name]
   (|do [loader &/loader
-- 
cgit v1.2.3