From a282228247fd1c9c50a082f38d147a47804a905f Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Fri, 23 Jun 2017 19:49:35 -0400
Subject: - Added #compiler-name back to Compiler-Info.

---
 luxc/src/lux/base.clj         | 13 ++++++++-----
 luxc/src/lux/compiler/js.clj  |  2 +-
 luxc/src/lux/compiler/jvm.clj |  2 +-
 3 files changed, 10 insertions(+), 7 deletions(-)

(limited to 'luxc/src')

diff --git a/luxc/src/lux/base.clj b/luxc/src/lux/base.clj
index 2f2d879fe..c63cce34e 100644
--- a/luxc/src/lux/base.clj
+++ b/luxc/src/lux/base.clj
@@ -139,7 +139,8 @@
   ("REPL" 0))
 
 (deftuple
-  ["compiler-version"
+  ["compiler-name"
+   "compiler-version"
    "compiler-mode"])
 
 ;; Hosts
@@ -816,16 +817,18 @@
               _
               class-name))))
 
-(defn default-compiler-info [mode]
-  (T [;; compiler-version
+(defn default-compiler-info [name mode]
+  (T [;; compiler-name
+      name
+      ;; compiler-version
       compiler-version
       ;; compiler-mode
       mode]
      ))
 
-(defn init-state [mode host-data]
+(defn init-state [name mode host-data]
   (T [;; "lux;info"
-      (default-compiler-info mode)
+      (default-compiler-info name mode)
       ;; "lux;source"
       $Nil
       ;; "lux;cursor"
diff --git a/luxc/src/lux/compiler/js.clj b/luxc/src/lux/compiler/js.clj
index 0f87050f6..c19a40dcd 100644
--- a/luxc/src/lux/compiler/js.clj
+++ b/luxc/src/lux/compiler/js.clj
@@ -176,7 +176,7 @@
                            :let [full-program-file (str @&&core/!output-dir java.io.File/separator "program.js")
                                  _ (&&core/write-file full-program-file (.getBytes (.toString total-buffer)))]]
                        (return nil))]
-        (|case (m-action (&/init-state mode (&&/js-host)))
+        (|case (m-action (&/init-state "Lux/JS" mode (&&/js-host)))
           (&/$Right ?state _)
           (do (println "Compilation complete!")
             (&&cache/clean ?state))
diff --git a/luxc/src/lux/compiler/jvm.clj b/luxc/src/lux/compiler/jvm.clj
index b3cb14642..22310201c 100644
--- a/luxc/src/lux/compiler/jvm.clj
+++ b/luxc/src/lux/compiler/jvm.clj
@@ -248,7 +248,7 @@
                                                     &&jvm-cache/uninstall-all-defs-in-module)
                          _ (compile-module source-dirs "lux")]
                      (compile-module source-dirs program-module))]
-      (|case (m-action (&/init-state mode (jvm-host)))
+      (|case (m-action (&/init-state "Lux/JVM" mode (jvm-host)))
         (&/$Right ?state _)
         (do (println "Compilation complete!")
           (&&cache/clean ?state))
-- 
cgit v1.2.3