diff options
author | Eduardo Julian | 2015-06-09 22:37:56 -0400 |
---|---|---|
committer | Eduardo Julian | 2015-06-09 22:37:56 -0400 |
commit | 81e1a4f10ad7aa7cfd76f9877e5e7deacb2d441e (patch) | |
tree | 8ae02e8f1ac7317baac68a6722643b5f42ea7e8d /source/lux.lux | |
parent | 0952d5906d90f305e0604447d6b292204ba53711 (diff) |
- Put definition metadata into the generated .class files.
Diffstat (limited to '')
-rw-r--r-- | source/lux.lux | 29 |
1 files changed, 6 insertions, 23 deletions
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 |