aboutsummaryrefslogtreecommitdiff
path: root/lux-r/source
diff options
context:
space:
mode:
Diffstat (limited to 'lux-r/source')
-rw-r--r--lux-r/source/program.lux80
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)