diff options
Diffstat (limited to '')
| -rw-r--r-- | lux-r/source/program.lux | 80 |
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) |