Commit 3ca13eb5 authored by Christophe Rhodes's avatar Christophe Rhodes
Browse files

fix for visible values from region and interactive eval

editing thinko: need tmp$value (not just value)
parent 040918c2
...@@ -519,7 +519,7 @@ withRetryRestart <- function(description, expr) { ...@@ -519,7 +519,7 @@ withRetryRestart <- function(description, expr) {
envir=globalenv()))) }) envir=globalenv()))) })
output <- paste(output, sep="", collapse="\n") output <- paste(output, sep="", collapse="\n")
if(tmp$visible) { if(tmp$visible) {
list(output, prin1ToString(value)) list(output, prin1ToString(tmp$value))
} else { } else {
list(output, "# invisible value") list(output, "# invisible value")
} }
...@@ -529,7 +529,7 @@ withRetryRestart <- function(description, expr) { ...@@ -529,7 +529,7 @@ withRetryRestart <- function(description, expr) {
withRetryRestart("retry SLIME interactive evaluation request", withRetryRestart("retry SLIME interactive evaluation request",
tmp <- withVisible(eval(parse(text=string), envir=globalenv()))) tmp <- withVisible(eval(parse(text=string), envir=globalenv())))
if(tmp$visible) { if(tmp$visible) {
prin1ToString(value) prin1ToString(tmp$value)
} else { } else {
"# invisible value" "# invisible value"
} }
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment