diff options
Diffstat (limited to 'new-luxc/source/luxc/lang/directive/jvm.lux')
| -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] |