From 3ca13eb5110013cf2348b3a840eff3bc4ff0ec69 Mon Sep 17 00:00:00 2001 From: Christophe Rhodes Date: Sun, 23 Oct 2011 10:51:33 +0100 Subject: [PATCH] fix for visible values from region and interactive eval editing thinko: need tmp$value (not just value) --- swank.R | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/swank.R b/swank.R index 0b48ed3..ce757b3 100644 --- a/swank.R +++ b/swank.R @@ -519,7 +519,7 @@ withRetryRestart <- function(description, expr) { envir=globalenv()))) }) output <- paste(output, sep="", collapse="\n") if(tmp$visible) { - list(output, prin1ToString(value)) + list(output, prin1ToString(tmp$value)) } else { list(output, "# invisible value") } @@ -529,7 +529,7 @@ withRetryRestart <- function(description, expr) { withRetryRestart("retry SLIME interactive evaluation request", tmp <- withVisible(eval(parse(text=string), envir=globalenv()))) if(tmp$visible) { - prin1ToString(value) + prin1ToString(tmp$value) } else { "# invisible value" } -- 2.39.5