diff options
author | Eduardo Julian | 2019-03-17 12:36:38 -0400 |
---|---|---|
committer | Eduardo Julian | 2019-03-17 12:36:38 -0400 |
commit | a6f04f38c0170e93e8f1ab2cfcde3cbf59f88b0b (patch) | |
tree | 67e4c943658b13e3483db6de1a6fab2242fa03fb /stdlib/source/lux.lux | |
parent | e9403bb6364152af447080d41a35891f8d75ff30 (diff) |
Added proper aliasing support to the new compiler.
Also improved aliasing support in the old compiler.
Diffstat (limited to '')
-rw-r--r-- | stdlib/source/lux.lux | 7 |
1 files changed, 1 insertions, 6 deletions
diff --git a/stdlib/source/lux.lux b/stdlib/source/lux.lux index 2b99f51f8..549d63112 100644 --- a/stdlib/source/lux.lux +++ b/stdlib/source/lux.lux @@ -4841,12 +4841,7 @@ (wrap (list))) #let [defs (list;map (: (-> Text Code) (function (_ def) - (` ("lux def" (~ (identifier$ ["" def])) - (~ (identifier$ [module-name def])) - [(~ cursor-code) - (#.Record (#Cons [[(~ cursor-code) (#.Tag ["lux" "alias"])] - [(~ cursor-code) (#.Identifier [(~ (text$ module-name)) (~ (text$ def))])]] - #Nil))])))) + (` ("lux def alias" (~ (identifier$ ["" def])) (~ (identifier$ [module-name def])))))) defs') openings (join-map (: (-> Openings (List Code)) (function (_ [alias structs]) |