From 81e1a4f10ad7aa7cfd76f9877e5e7deacb2d441e Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Tue, 9 Jun 2015 22:37:56 -0400
Subject: - Put definition metadata into the generated .class files.

---
 source/lux.lux | 29 ++++++-----------------------
 1 file changed, 6 insertions(+), 23 deletions(-)

(limited to 'source/lux.lux')

diff --git a/source/lux.lux b/source/lux.lux
index 2e5752592..2a4cc8660 100644
--- a/source/lux.lux
+++ b/source/lux.lux
@@ -1341,33 +1341,16 @@
     (-> ($' List ($' List a)) ($' List a)))
   (foldL list:++ #Nil xs))
 
-## (def'' #export (normalize ident)
-##   (-> Ident ($' Lux Ident))
-##   (_lux_case ident
-##          ["" name]
-##          (do Lux:Monad
-##            [module-name get-module-name]
-##            (;return (: Ident [module-name name])))
-
-##          _
-##          (return ident)))
-(def'' #export (normalize ident state)
+(def'' #export (normalize ident)
   (-> Ident ($' Lux Ident))
   (_lux_case ident
     ["" name]
-    (_lux_case state
-      {#source source #modules modules #module-aliases module-aliases
-       #envs   envs   #types   types   #host           host
-       #seed   seed}
-      (_lux_case (reverse envs)
-        #Nil
-        (#Left "Can't normalize Ident without a global environment.")
-
-        (#Cons [{#name prefix #inner-closures _ #locals _ #closure _} _])
-        (#Right [state [prefix name]])))
-    
+    (do Lux:Monad
+      [module-name get-module-name]
+      (;return (_lux_: Ident [module-name name])))
+
     _
-    (#Right [state ident])))
+    (return ident)))
 
 (defmacro #export (| tokens)
   (do Lux:Monad
-- 
cgit v1.2.3