aboutsummaryrefslogtreecommitdiff
path: root/lux-r
diff options
context:
space:
mode:
Diffstat (limited to 'lux-r')
-rw-r--r--lux-r/source/program.lux42
1 files changed, 20 insertions, 22 deletions
diff --git a/lux-r/source/program.lux b/lux-r/source/program.lux
index 42d095a41..68f8ef9c8 100644
--- a/lux-r/source/program.lux
+++ b/lux-r/source/program.lux
@@ -232,7 +232,7 @@
... [] (eval self [context org/renjin/eval/Context environment org/renjin/sexp/Environment])
... org/renjin/sexp/SEXP
... (exec
- ... ("lux io log" (exception.report
+ ... (debug.log! (exception.report
... (list ["@@" "eval"]
... ["context" (debug.inspect context)]
... ["environment" (debug.inspect environment)])))
@@ -252,14 +252,14 @@
[] (get self [_ int])
org/renjin/sexp/SEXP
(exec
- ... ("lux io log" (..%%code <call>))
+ ... (debug.log! (..%%code <call>))
_jvm_this))
(org/renjin/sexp/ListVector
[] (get self [_ java/lang/String])
org/renjin/sexp/SEXP
(exec
- ... ("lux io log" (..%%code <call>))
+ ... (debug.log! (..%%code <call>))
_jvm_this))
(,, (with_template [<call> <output>]
@@ -269,7 +269,7 @@
[] <call>
<output>
... (exec
- ... ... ("lux io log" (..%%code <call>))
+ ... ... (debug.log! (..%%code <call>))
... (panic! (..%%code <call>)))
(panic! (..%%code <call>)))]
@@ -417,7 +417,7 @@
(def (read host_object)
(Reader java/lang/Object)
(exec
- ... ("lux io log" (exception.construct ..unknown_kind_of_object [host_object]))
+ ... (debug.log! (exception.construct ..unknown_kind_of_object [host_object]))
(`` (<| (case (ffi.as org/renjin/sexp/ListVector host_object)
{.#Some host_object}
(<| (case (..read_variant read host_object)
@@ -459,7 +459,7 @@
(def (call_macro interpreter inputs lux macro)
(-> org/renjin/script/RenjinScriptEngine (List Code) Lux org/renjin/sexp/Closure (Try (Try [Lux (List Code)])))
- (let [_ ("lux io log" "@call_macro 0")
+ (let [_ (debug.log! "@call_macro 0")
r_inputs (is org/renjin/sexp/PairList
(case (ffi.try (|> (org/renjin/sexp/PairList$Builder::new)
(org/renjin/sexp/PairList$Builder::add (..host_value inputs))
@@ -471,18 +471,18 @@
{try.#Failure error}
(exec
- ("lux io log" error)
+ (debug.log! error)
(panic! error))))
- _ ("lux io log" "@call_macro 1")
+ _ (debug.log! "@call_macro 1")
r_macro (org/renjin/sexp/FunctionCall::new macro r_inputs)
- _ ("lux io log" "@call_macro 2")
+ _ (debug.log! "@call_macro 2")
r_environment (org/renjin/sexp/Closure::getEnclosingEnvironment macro)
- _ ("lux io log" "@call_macro 3")
+ _ (debug.log! "@call_macro 3")
r_context (org/renjin/script/RenjinScriptEngine::getRuntimeContext interpreter)
- _ ("lux io log" "@call_macro 4")]
+ _ (debug.log! "@call_macro 4")]
(do try.monad
[raw_output (org/renjin/sexp/FunctionCall::eval r_context r_environment r_macro)
- #let [_ ("lux io log" "@call_macro 5")]]
+ #let [_ (debug.log! "@call_macro 5")]]
(as (Try (Try [Lux (List Code)]))
(..read (as java/lang/Object raw_output))))))
@@ -509,13 +509,13 @@
(is (Host _.Expression _.Expression)
(structure
(def (evaluate! context code)
- (exec ("lux io log" "@evaluate!")
+ (exec (debug.log! "@evaluate!")
(run! code)))
(def (execute! input)
(exec
- ("lux io log" "@execute!")
- ... ("lux io log" (_.code input))
+ (debug.log! "@execute!")
+ ... (debug.log! (_.code input))
(javax/script/ScriptEngine::eval (_.code input) interpreter)))
(def (define! context input)
@@ -523,13 +523,13 @@
$global (_.var global)]
(do try.monad
[#let [definition (_.set! $global input)]
- #let [_ ("lux io log" "@define! 0")
- ... _ ("lux io log" (_.code definition))
+ #let [_ (debug.log! "@define! 0")
+ ... _ (debug.log! (_.code definition))
]
_ (javax/script/ScriptEngine::eval (_.code definition) interpreter)
- #let [_ ("lux io log" "@define! 1")]
+ #let [_ (debug.log! "@define! 1")]
value (run! $global)
- #let [_ ("lux io log" "@define! 2")]]
+ #let [_ (debug.log! "@define! 2")]]
(wrap [global value definition]))))
(def (ingest context content)
@@ -575,9 +575,7 @@
(as Try)
try.trusted
(as Try)
- (exec
- ("lux io log" "TODO: Extender")
- {try.#Failure "TODO: Extender"})))
+ {try.#Failure "TODO: Extender"}))
@.r
(def (extender handler)