From 3bf571b71b14d5d953c84b0158e5d25a60663083 Mon Sep 17 00:00:00 2001 From: Christophe Rhodes Date: Tue, 1 May 2012 15:20:25 +0100 Subject: [PATCH] make inspector printing more reasonable I don't yet know what's right, but it's fairly nonsensical to have "[1] " prepending every label and value, so use prin1ToString --- swank.R | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/swank.R b/swank.R index 3b1f3d7..5968629 100644 --- a/swank.R +++ b/swank.R @@ -658,7 +658,7 @@ inspectObject <- function(slimeConnection, object) { valuePart <- function(istate, object, string) { list(quote(`:value`), - if(is.null(string)) printToString(object) else string, + if(is.null(string)) prin1ToString(object) else string, assignIndexInParts(object, istate)) } @@ -669,7 +669,7 @@ preparePart <- function(istate, part) { switch(as.character(part[[1]]), `:newline` = list("\n"), `:value` = valuePart(istate, part[[2]], part[[3]]), - `:line` = list(printToString(part[[2]]), ": ", + `:line` = list(prin1ToString(part[[2]]), ": ", valuePart(istate, part[[3]], NULL), "\n")) } } -- 2.39.5