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.

---
 stdlib/source/lux.lux | 26 ++++++++++++++++----------
 1 file changed, 16 insertions(+), 10 deletions(-)

(limited to 'stdlib')

diff --git a/stdlib/source/lux.lux b/stdlib/source/lux.lux
index 1a8d07922..c108428d8 100644
--- a/stdlib/source/lux.lux
+++ b/stdlib/source/lux.lux
@@ -597,17 +597,23 @@
                 default-def-meta-exported)))
 
 ## (type: Compiler-Info
-##   {#compiler-version Text
+##   {#compiler-name Text
+##    #compiler-version Text
 ##    #compiler-mode    Compiler-Mode})
 (_lux_def Compiler-Info
   (#Named ["lux" "Compiler-Info"]
-          (#Product ## "lux;compiler-version"
+          (#Product
+           ## compiler-name
            Text
-           ## "lux;compiler-mode"
-           Compiler-Mode))
-  (#Cons [["lux" "tags"] (#ListA (#Cons (#TextA "compiler-version")
-                                        (#Cons (#TextA "compiler-mode")
-                                               #Nil)))]
+           (#Product
+            ## compiler-version
+            Text
+            ## compiler-mode
+            Compiler-Mode)))
+  (#Cons [["lux" "tags"] (#ListA (#Cons (#TextA "compiler-name")
+                                        (#Cons (#TextA "compiler-version")
+                                               (#Cons (#TextA "compiler-mode")
+                                                      #Nil))))]
          (#Cons [["lux" "doc"] (#TextA "Information about the current version and type of compiler that is running.")]
                 default-def-meta-exported)))
 
@@ -3530,8 +3536,8 @@
 
     (#ExQ env body)
     (resolve-type-tags body)
-    
-    (#Named [module name] _)
+
+    (#Named [module name] unnamed)
     (do Monad<Lux>
       [=module (find-module module)
        #let [{#module-hash _ #module-aliases _ #defs bindings #imports _ #tags tags #types types #module-anns _ #module-state _} =module]]
@@ -3545,7 +3551,7 @@
           (return #None))
 
         _
-        (return #None)))
+        (resolve-type-tags unnamed)))
     
     _
     (return #None)))
-- 
cgit v1.2.3