From e00ba096c8837abe85d366e0c1293c09dbe84d81 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Wed, 18 Aug 2021 03:29:15 -0400
Subject: Some bug fixes.

---
 lux-jvm/source/luxc/lang/translation/jvm/common.lux | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

(limited to 'lux-jvm/source/luxc/lang/translation/jvm/common.lux')

diff --git a/lux-jvm/source/luxc/lang/translation/jvm/common.lux b/lux-jvm/source/luxc/lang/translation/jvm/common.lux
index b6bba249f..cfdadecb5 100644
--- a/lux-jvm/source/luxc/lang/translation/jvm/common.lux
+++ b/lux-jvm/source/luxc/lang/translation/jvm/common.lux
@@ -31,18 +31,18 @@
 ... (def: .public (with-artifacts action)
 ...   (All [a] (-> (Meta a) (Meta [Artifacts a])))
 ...   (function (_ state)
-...     (case (action (update@ #.host
+...     (case (action (revised@ #.host
 ...                            (|>> (:coerce Host)
-...                                 (set@ #artifacts (dictionary.new text.hash))
+...                                 (with@ #artifacts (dictionary.new text.hash))
 ...                                 (:coerce Nothing))
 ...                            state))
 ...       (#try.Success [state' output])
-...       (#try.Success [(update@ #.host
+...       (#try.Success [(revised@ #.host
 ...                                 (|>> (:coerce Host)
-...                                      (set@ #artifacts (|> (get@ #.host state) (:coerce Host) (get@ #artifacts)))
+...                                      (with@ #artifacts (|> (value@ #.host state) (:coerce Host) (value@ #artifacts)))
 ...                                      (:coerce Nothing))
 ...                                 state')
-...                        [(|> state' (get@ #.host) (:coerce Host) (get@ #artifacts))
+...                        [(|> state' (value@ #.host) (:coerce Host) (value@ #artifacts))
 ...                         output]])
 
 ...       (#try.Failure error)
-- 
cgit v1.2.3