diff options
author | Eduardo Julian | 2020-03-18 21:38:34 -0400 |
---|---|---|
committer | Eduardo Julian | 2020-03-18 21:38:34 -0400 |
commit | 30801bcf8fbb1be7ae8f193edfa71e6c4909a4c3 (patch) | |
tree | d6f4f9335664f4d25c6c037e848d0743d211ff74 /new-luxc/source/luxc/lang/directive | |
parent | 71c99d63a313d497c3881ab06752f05e3af33350 (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.lux | 8 |
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] |