From 30801bcf8fbb1be7ae8f193edfa71e6c4909a4c3 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Wed, 18 Mar 2020 21:38:34 -0400
Subject: No passing the archive as a parameter to all phases.

---
 new-luxc/source/luxc/lang/directive/jvm.lux | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'new-luxc/source/luxc/lang/directive')

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]
-- 
cgit v1.2.3