From d772fe99d5d4990c6774481fb64d12280cdb6aae Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Thu, 19 Aug 2021 04:59:06 -0400
Subject: Enabled compile-time code evaluation (i.e. "eval" function).

---
 lux-jvm/source/program.lux | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'lux-jvm')

diff --git a/lux-jvm/source/program.lux b/lux-jvm/source/program.lux
index deef09f36..242d0553e 100644
--- a/lux-jvm/source/program.lux
+++ b/lux-jvm/source/program.lux
@@ -208,7 +208,7 @@
                                           (write! "java.lang.Object" 2 $state))))))))
 
 (def: (phase_wrapper archive)
-  (-> Archive (generation.Operation _.Anchor _.Inst _.Definition platform.Phase_Wrapper))
+  (-> Archive (generation.Operation _.Anchor _.Inst _.Definition phase.Wrapper))
   (do phase.monad
     [instanceG (function.function' (#.Some [0 (.nat -1)]) expression.translate archive [(list) 4 ..how_to_wrap_a_phase])
      phase_wrapper (generation.evaluate! [0 (.nat -2)] instanceG)]
@@ -244,7 +244,7 @@
           #platform.write product.right}])))
 
 (def: (extender phase_wrapper)
-  (-> platform.Phase_Wrapper Extender)
+  (-> phase.Wrapper Extender)
   ... TODO: Stop relying on coercions ASAP.
   (<| (:as Extender)
       (function (@self handler))
-- 
cgit v1.2.3