From cd71a864ad5be13ed6ec6d046e0a2cb1087bdf94 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Fri, 10 Sep 2021 01:21:23 -0400
Subject: Migrated variants to the new syntax.

---
 lux-r/source/program.lux | 44 ++++++++++++++++++++++----------------------
 1 file changed, 22 insertions(+), 22 deletions(-)

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

diff --git a/lux-r/source/program.lux b/lux-r/source/program.lux
index ec77f8c0d..990fb6dbc 100644
--- a/lux-r/source/program.lux
+++ b/lux-r/source/program.lux
@@ -188,7 +188,7 @@
         ...             (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)]
 
@@ -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)
-                                   (org/renjin/sexp/SEXP::asInt low)))
+    [{#.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,23 +411,23 @@
   (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)
             (~~ (template [<class> <post_processing>]
                   [(case (ffi.check <class> host_object)
-                     (#.Some host_object)
+                     {#.Some host_object}
                      (`` (|> host_object (~~ (template.splice <post_processing>))))
 
                      #.None)]
@@ -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,7 +481,7 @@
 (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
@@ -569,7 +569,7 @@
             (:as Try)
             (exec
               ("lux io log" "TODO: Extender")
-              (#try.Failure "TODO: Extender"))))
+              {#try.Failure "TODO: Extender"})))
 
       @.r
       (def: (extender handler)
-- 
cgit v1.2.3