aboutsummaryrefslogtreecommitdiff
path: root/lux-jvm/source/luxc/lang/translation/jvm/common.lux
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--lux-jvm/source/luxc/lang/translation/jvm/common.lux10
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)