fix one multiple-string bug in the inspector

diff --git a/swank.R b/swank.R
index ff22caa064766957c9c27a649b3d1afbe63155d5..d72103fc309fc33c57b5c9cd0ca13f4eaa60ac36 100644 (file)
--- a/swank.R
+++ b/swank.R
@@ -491,7 +491,7 @@ inspectObject <- function(slimeConnection, object) {
 
 valuePart <- function(istate, object, string) {
   list(quote(`:value`),
 
 valuePart <- function(istate, object, string) {
   list(quote(`:value`),

-       if(is.null(string)) printToString(object) else string,
+       if(is.null(string)) paste(printToString(object),collapse=" ") else string,

        assignIndexInParts(object, istate))
 }
 
        assignIndexInParts(object, istate))
 }