From dda05bca0956af5e5b3875c4cc36e61aa04772e4 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sun, 12 Sep 2021 00:07:08 -0400
Subject: Made the "#" character great again!

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

(limited to 'lux-jvm/source/program.lux')

diff --git a/lux-jvm/source/program.lux b/lux-jvm/source/program.lux
index ea4503d63..0fc2e7912 100644
--- a/lux-jvm/source/program.lux
+++ b/lux-jvm/source/program.lux
@@ -210,7 +210,7 @@
 (def: (phase_wrapper archive)
   (-> 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])
+    [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)]
     (in (function (_ phase)
           (<| try.trusted
@@ -234,14 +234,14 @@
     [... host jvm/host.host
      [loader host] jvm.host]
     (in [loader
-         [#platform.&file_system (file.async file.default)
-          #platform.host host
-          ... #platform.phase jvm.generate
-          #platform.phase expression.translate
-          ... #platform.runtime runtime.generate
-          #platform.runtime runtime.translate
-          #platform.phase_wrapper ..phase_wrapper
-          #platform.write product.right]])))
+         [platform.#&file_system (file.async file.default)
+          platform.#host host
+          ... platform.#phase jvm.generate
+          platform.#phase expression.translate
+          ... platform.#runtime runtime.generate
+          platform.#runtime runtime.translate
+          platform.#phase_wrapper ..phase_wrapper
+          platform.#write product.right]])))
 
 (def: (extender phase_wrapper)
   (-> phase.Wrapper Extender)
@@ -277,16 +277,16 @@
   (async.future (\ world/program.default exit +0)))
 
 (program: [service /cli.service]
-  (let [static [#/static.host @.jvm
-                #/static.host_module_extension ".jvm"
-                #/static.target (/cli.target service)
-                #/static.artifact_extension ".class"]]
+  (let [static [/static.#host @.jvm
+                /static.#host_module_extension ".jvm"
+                /static.#target (/cli.target service)
+                /static.#artifact_extension ".class"]]
     (exec (do async.monad
             [[loader platform] (async.future ..platform)
-             _ (/.compiler [#/static.host @.jvm
-                            #/static.host_module_extension ".jvm"
-                            #/static.target (/cli.target service)
-                            #/static.artifact_extension ".class"]
+             _ (/.compiler [/static.#host @.jvm
+                            /static.#host_module_extension ".jvm"
+                            /static.#target (/cli.target service)
+                            /static.#artifact_extension ".class"]
                            ..expander
                            (analysis.bundle loader)
                            (io.io platform)
-- 
cgit v1.2.3