aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/lux/tool/compiler/phase/extension/statement.lux
diff options
context:
space:
mode:
Diffstat (limited to 'stdlib/source/lux/tool/compiler/phase/extension/statement.lux')
-rw-r--r--stdlib/source/lux/tool/compiler/phase/extension/statement.lux13
1 files changed, 5 insertions, 8 deletions
diff --git a/stdlib/source/lux/tool/compiler/phase/extension/statement.lux b/stdlib/source/lux/tool/compiler/phase/extension/statement.lux
index 7deb93696..99a8d1fe6 100644
--- a/stdlib/source/lux/tool/compiler/phase/extension/statement.lux
+++ b/stdlib/source/lux/tool/compiler/phase/extension/statement.lux
@@ -168,19 +168,16 @@
Handler
(function (_ extension-name phase inputsC+)
(case inputsC+
- (^ (list annotationsC))
+ (^ (list annotationsC importsC))
(do ///.monad
- [[_ annotationsT annotationsV] (evaluate! Code annotationsC)
- #let [annotationsV (:coerce Code annotationsV)]
- imports (case (s.run (list (|> annotationsV
- (macro.get-ann (name-of #.imports))
- (maybe.default (' []))))
- ..imports)
+ [imports (case (s.run ..imports (list importsC))
(#error.Success imports)
(wrap imports)
(#error.Failure error)
- (///.throw //.invalid-syntax [extension-name %code (list annotationsV)]))
+ (///.throw //.invalid-syntax [extension-name %code (list annotationsC importsC)]))
+ [_ annotationsT annotationsV] (evaluate! Code annotationsC)
+ #let [annotationsV (:coerce Code annotationsV)]
_ (////statement.lift-analysis
(do @
[_ (monad.map @ (function (_ [module alias])