diff options
| author | Eduardo Julian | 2019-06-01 21:46:18 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2019-06-01 21:46:18 -0400 |
| commit | b7f62d92c3ed9dcd0d2d48d680798114ad64c9df (patch) | |
| tree | 8f22318df23856498b2fc590ed7604a3115787c1 /stdlib/source/lux/host.old.lux | |
| parent | a85bfc405e7acaf86c61fcd8f7987da0200d7b03 (diff) | |
Removed the (magical) "alias" annotations tag.
Diffstat (limited to '')
| -rw-r--r-- | stdlib/source/lux/host.old.lux | 28 |
1 files changed, 18 insertions, 10 deletions
diff --git a/stdlib/source/lux/host.old.lux b/stdlib/source/lux/host.old.lux index db8145ab2..1f92a4a3b 100644 --- a/stdlib/source/lux/host.old.lux +++ b/stdlib/source/lux/host.old.lux @@ -369,18 +369,26 @@ (do macro.monad [current-module macro.current-module-name definitions (macro.definitions current-module)] - (wrap (list@fold (: (-> [Text Definition] Class-Imports Class-Imports) - (function (_ [short-name [_ _ meta _]] imports) - (case (macro.get-text-ann (name-of #..jvm-class) meta) - (#.Some full-class-name) - (add-import [short-name full-class-name] imports) - - _ - imports))) + (wrap (list@fold (: (-> [Text Global] Class-Imports Class-Imports) + (function (_ [short-name constant] imports) + (case constant + (#.Left _) + imports + + (#.Right [_ _ meta _]) + (case (macro.get-text-ann (name-of #..jvm-class) meta) + (#.Some full-class-name) + (add-import [short-name full-class-name] imports) + + _ + imports)))) empty-imports definitions))))) - (#.Left _) (list) - (#.Right imports) imports)) + (#.Left _) + (list) + + (#.Right imports) + imports)) (def: java/lang/* (List Text) |