aboutsummaryrefslogtreecommitdiff
path: root/new-luxc/source/luxc/lang/directive
diff options
context:
space:
mode:
authorEduardo Julian2020-03-18 21:38:34 -0400
committerEduardo Julian2020-03-18 21:38:34 -0400
commit30801bcf8fbb1be7ae8f193edfa71e6c4909a4c3 (patch)
treed6f4f9335664f4d25c6c037e848d0743d211ff74 /new-luxc/source/luxc/lang/directive
parent71c99d63a313d497c3881ab06752f05e3af33350 (diff)
No passing the archive as a parameter to all phases.
Diffstat (limited to 'new-luxc/source/luxc/lang/directive')
-rw-r--r--new-luxc/source/luxc/lang/directive/jvm.lux8
1 files changed, 4 insertions, 4 deletions
diff --git a/new-luxc/source/luxc/lang/directive/jvm.lux b/new-luxc/source/luxc/lang/directive/jvm.lux
index 6d446e91d..7b437f246 100644
--- a/new-luxc/source/luxc/lang/directive/jvm.lux
+++ b/new-luxc/source/luxc/lang/directive/jvm.lux
@@ -505,7 +505,7 @@
(def: (true-handler pseudo)
(-> Pseudo-Handler jvm.Handler)
- (function (_ extension-name phase inputs)
+ (function (_ extension-name phase archive inputs)
(|> (pseudo extension-name inputs)
(:: try.monad map ..bytecode)
phase.lift)))
@@ -513,12 +513,12 @@
(def: (def::generation extender)
(All [anchor expression directive]
(-> Extender (directive.Handler anchor expression directive)))
- (function (handler extension-name phase inputsC+)
+ (function (handler extension-name phase archive inputsC+)
(case inputsC+
(^ (list nameC valueC))
(do phase.monad
- [[_ _ name] (lux/.evaluate! Text nameC)
- [_ _ pseudo-handlerV] (lux/.evaluate! ..Pseudo-Handler valueC)
+ [[_ _ name] (lux/.evaluate! archive Text nameC)
+ [_ _ pseudo-handlerV] (lux/.evaluate! archive ..Pseudo-Handler valueC)
_ (<| directive.lift-generation
(extension.install extender (:coerce Text name))
(:share [anchor expression directive]