Made the "#" character great again!

1 files changed, 11 insertions, 11 deletions

diff --git a/lux-jvm/source/luxc/lang/translation/jvm/common.lux b/lux-jvm/source/luxc/lang/translation/jvm/common.lux
index 2dade7a97..456a20694 100644
--- a/lux-jvm/source/luxc/lang/translation/jvm/common.lux
+++ b/lux-jvm/source/luxc/lang/translation/jvm/common.lux
@@ -31,22 +31,22 @@
 ... (def: .public (with-artifacts action)
 ...   (All (_ a) (-> (Meta a) (Meta [Artifacts a])))
 ...   (function (_ state)
-...     (case (action (revised@ #.host
+...     (case (action (revised@ .#host
 ...                             (|>> (:coerce Host)
 ...                                  (with@ #artifacts (dictionary.new text.hash))
 ...                                  (:coerce Nothing))
 ...                             state))
-...       {#try.Success [state' output]}
-...       {#try.Success [(revised@ #.host
+...       {try.#Success [state' output]}
+...       {try.#Success [(revised@ .#host
 ...                                (|>> (:coerce Host)
-...                                     (with@ #artifacts (|> (value@ #.host state) (:coerce Host) (value@ #artifacts)))
+...                                     (with@ #artifacts (|> (value@ .#host state) (:coerce Host) (value@ #artifacts)))
 ...                                     (:coerce Nothing))
 ...                                state')
-...                      [(|> state' (value@ #.host) (:coerce Host) (value@ #artifacts))
+...                      [(|> state' (value@ .#host) (:coerce Host) (value@ #artifacts))
 ...                       output]]}
 
-...       {#try.Failure error}
-...       {#try.Failure error})))
+...       {try.#Failure error}
+...       {try.#Failure error})))
 
 ... (def: .public (load-definition state)
 ...   (-> Lux (-> Name Binary (Try Any)))
@@ -59,14 +59,14 @@
 ...              class (..load-class class-name)]
 ...             (case (do try.monad
 ...                     [field (Class::getField [..value-field] class)]
-...                     (Field::get [#.None] field))
-...               {#try.Success {#.Some def-value}}
+...                     (Field::get [{.#None}] field))
+...               {try.#Success {.#Some def-value}}
 ...               (wrap def-value)
 
-...               {#try.Success #.None}
+...               {try.#Success {.#None}}
 ...               (phase.throw invalid-definition-value (%name def-name))
 
-...               {#try.Failure error}
+...               {try.#Failure error}
 ...               (phase.throw cannot-load-definition
 ...                            (format "Definition: " (%name def-name) "\n"
 ...                                    "Error:\n"