diff options
Diffstat (limited to 'stdlib/source/lux/host.old.lux')
| -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) |