Some bug fixes.

1 files changed, 5 insertions, 5 deletions

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)