From 4955cfe6f248a039e95b404f26abfae04204740f Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sat, 18 Apr 2020 04:10:45 -0400
Subject: Generating module IDs in a similar way to artifact IDs.

---
 new-luxc/source/luxc/lang/translation/jvm/extension/host.lux | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'new-luxc/source/luxc/lang/translation/jvm/extension')

diff --git a/new-luxc/source/luxc/lang/translation/jvm/extension/host.lux b/new-luxc/source/luxc/lang/translation/jvm/extension/host.lux
index cf039db68..408b2a389 100644
--- a/new-luxc/source/luxc/lang/translation/jvm/extension/host.lux
+++ b/new-luxc/source/luxc/lang/translation/jvm/extension/host.lux
@@ -908,10 +908,10 @@
                       store-capturedI
                       _.RETURN))))
 
-(def: (anonymous-instance class env)
-  (-> (Type Class) Environment (Operation Inst))
+(def: (anonymous-instance archive class env)
+  (-> Archive (Type Class) Environment (Operation Inst))
   (do phase.monad
-    [captureI+ (monad.map @ ///reference.variable env)]
+    [captureI+ (monad.map @ (///reference.variable archive) env)]
     (wrap (|>> (_.NEW class)
                _.DUP
                (_.fuse captureI+)
-- 
cgit v1.2.3