From 040918c27d8b569b277e62a47efa860a65f5fcab Mon Sep 17 00:00:00 2001 From: Christophe Rhodes Date: Sun, 23 Oct 2011 10:50:16 +0100 Subject: [PATCH] fix swank-media repl-result-maker for complex There ought to be some way of catching this mistake, which is passing a non-length-1 vector to the swank functions, which then vectorise and confuse the event stream. --- swank-media.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/swank-media.R b/swank-media.R index 1d7071d..59f7d77 100644 --- a/swank-media.R +++ b/swank-media.R @@ -30,7 +30,7 @@ makeMediaReplResult.numeric <- function(value) { list(quote(`:write-string`), string, quote(`:repl-result`)) } makeMediaReplResult.complex <- function(value) { - string <- deparse(value) + string <- paste(deparse(value), sep="", collapse="\n") list(quote(`:write-string`), string, quote(`:repl-result`)) } -- 2.39.5