Made the "#" character great again!

1 files changed, 40 insertions, 40 deletions

diff --git a/lux-r/source/program.lux b/lux-r/source/program.lux
index 990fb6dbc..45023fe70 100644
--- a/lux-r/source/program.lux
+++ b/lux-r/source/program.lux
@@ -188,9 +188,9 @@
         ...             (let [sub_value (:as java/lang/Object sub_value)]
         ...               (`` (<| (~~ (template [<type> <then>]
         ...                             [(case (ffi.check <type> sub_value)
-        ...                                {#.Some sub_value}
+        ...                                {.#Some sub_value}
         ...                                (`` (|> sub_value (~~ (template.splice <then>))))
-        ...                                #.None)]
+        ...                                {.#None})]
 
         ...                             [[java/lang/Object] [host_value]]
         ...                             [java/lang/Boolean [..host_bit]]
@@ -362,7 +362,7 @@
            (case (|> host_object
                      (org/renjin/sexp/ListVector::get_field runtime.variant_flag_field)
                      (ffi.check org/renjin/sexp/Null))
-             {#.Some _}
+             {.#Some _}
              (: Any (ffi.null))
 
              _
@@ -377,12 +377,12 @@
          (|> host_object
              (org/renjin/sexp/ListVector::get_field runtime.i64_low_field)
              (ffi.check org/renjin/sexp/IntArrayVector))]
-    [{#.Some high} {#.Some low}]
-    {#try.Success (runtime.lux_i64 (org/renjin/sexp/SEXP::asInt high)
+    [{.#Some high} {.#Some low}]
+    {try.#Success (runtime.lux_i64 (org/renjin/sexp/SEXP::asInt high)
                                    (org/renjin/sexp/SEXP::asInt low))}
 
     _
-    {#try.Failure ""}))
+    {try.#Failure ""}))
 
 (def: (read_tuple read host_object)
   (-> (Reader java/lang/Object) (Reader org/renjin/sexp/ListVector))
@@ -391,12 +391,12 @@
            output (:as (Array Any) (array.new size))]
       (if (n.< size idx)
         (case (|> host_object (org/renjin/sexp/ListVector::get_index (.int idx)) (:as java/lang/Object) read)
-          {#try.Failure error}
-          {#try.Failure error}
+          {try.#Failure error}
+          {try.#Failure error}
 
-          {#try.Success member}
+          {try.#Success member}
           (recur (++ idx) (array.write! idx (:as Any member) output)))
-        {#try.Success output}))))
+        {try.#Success output}))))
 
 (def: (field_class field host_object)
   (-> Text org/renjin/sexp/ListVector Text)
@@ -411,35 +411,35 @@
   (exec
     ... ("lux io log" (exception.construct ..unknown_kind_of_object [host_object]))
     (`` (<| (case (ffi.check org/renjin/sexp/ListVector host_object)
-              {#.Some host_object}
+              {.#Some host_object}
               (<| (case (..read_variant read host_object)
-                    {#try.Success output}
-                    {#try.Success output}
+                    {try.#Success output}
+                    {try.#Success output}
 
-                    {#try.Failure _})
+                    {try.#Failure _})
                   (case (..read_i64 host_object)
-                    {#try.Success output}
-                    {#try.Success output}
+                    {try.#Success output}
+                    {try.#Success output}
 
-                    {#try.Failure _})
+                    {try.#Failure _})
                   (..read_tuple read host_object))
 
-              #.None)
+              {.#None})
             (~~ (template [<class> <post_processing>]
                   [(case (ffi.check <class> host_object)
-                     {#.Some host_object}
+                     {.#Some host_object}
                      (`` (|> host_object (~~ (template.splice <post_processing>))))
 
-                     #.None)]
+                     {.#None})]
 
-                  [org/renjin/sexp/StringArrayVector [org/renjin/sexp/StringVector::asString #try.Success]]
-                  [org/renjin/sexp/IntArrayVector [org/renjin/sexp/SEXP::asInt #try.Success]]
+                  [org/renjin/sexp/StringArrayVector [org/renjin/sexp/StringVector::asString {try.#Success}]]
+                  [org/renjin/sexp/IntArrayVector [org/renjin/sexp/SEXP::asInt {try.#Success}]]
                   [org/renjin/sexp/LogicalArrayVector [org/renjin/sexp/LogicalVector::asLogical
                                                        org/renjin/sexp/Logical::toBooleanStrict
-                                                       #try.Success]]
-                  [org/renjin/sexp/Closure [#try.Success]]
-                  ... [org/armedbear/lisp/DoubleFloat [org/armedbear/lisp/DoubleFloat::doubleValue #try.Success]]
-                  ... [program/LuxADT [program/LuxADT::getValue #try.Success]]
+                                                       {try.#Success}]]
+                  [org/renjin/sexp/Closure [{try.#Success}]]
+                  ... [org/armedbear/lisp/DoubleFloat [org/armedbear/lisp/DoubleFloat::doubleValue {try.#Success}]]
+                  ... [program/LuxADT [program/LuxADT::getValue {try.#Success}]]
                   ))
             ... else
             (exception.throw ..unknown_kind_of_object [host_object])
@@ -458,10 +458,10 @@
                                        (org/renjin/sexp/PairList$Builder::add (..host_value lux))
                                        org/renjin/sexp/PairList$Builder::build
                                        (:as org/renjin/sexp/PairList)))
-                      {#try.Success r_inputs}
+                      {try.#Success r_inputs}
                       r_inputs
                       
-                      {#try.Failure error}
+                      {try.#Failure error}
                       (exec
                         ("lux io log" error)
                         (panic! error))))
@@ -481,10 +481,10 @@
 (def: (expander interpreter macro inputs lux)
   (-> org/renjin/script/RenjinScriptEngine Expander)
   (case (ensure_macro macro)
-    {#.Some macro}
+    {.#Some macro}
     (call_macro interpreter inputs lux macro)
 
-    #.None
+    {.#None}
     (exception.throw ..cannot_apply_a_non_function [(:as java/lang/Object macro)])))
 
 (def: host
@@ -542,11 +542,11 @@
   (do io.monad
     [[interpreter host] ..host]
     (wrap [interpreter
-           [#platform.&file_system (file.async file.default)
-            #platform.host host
-            #platform.phase r.generate
-            #platform.runtime runtime.generate
-            #platform.write (|>> _.code (\ utf8.codec encoded))]])))
+           [platform.#&file_system (file.async file.default)
+            platform.#host host
+            platform.#phase r.generate
+            platform.#runtime runtime.generate
+            platform.#write (|>> _.code (\ utf8.codec encoded))]])))
 
 (def: (program context program)
   (Program _.Expression _.Expression)
@@ -569,7 +569,7 @@
             (:as Try)
             (exec
               ("lux io log" "TODO: Extender")
-              {#try.Failure "TODO: Extender"})))
+              {try.#Failure "TODO: Extender"})))
 
       @.r
       (def: (extender handler)
@@ -593,10 +593,10 @@
         (do io.monad
           [[interpreter platform] ..platform]
           (exec (do promise.monad
-                  [_ (/.compiler [#/static.host @.r
-                                  #/static.host_module_extension extension
-                                  #/static.target (/cli.target service)
-                                  #/static.artifact_extension extension]
+                  [_ (/.compiler [/static.#host @.r
+                                  /static.#host_module_extension extension
+                                  /static.#target (/cli.target service)
+                                  /static.#artifact_extension extension]
                                  (..expander interpreter)
                                  analysis.bundle
                                  (io.io platform)