From 7683b39edd19ab103e711753bffbba3632cc70eb Mon Sep 17 00:00:00 2001 From: Christophe Rhodes Date: Mon, 30 Aug 2010 19:55:59 +0100 Subject: [PATCH] make swank:listener-eval be a bit more like the CL version don't return (:ok (:values "string")); instead, send a separate (:write-string "string" :repl-result) and return (:ok ()) --- swank.R | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/swank.R b/swank.R index c0a3ce5..578d61c 100644 --- a/swank.R +++ b/swank.R @@ -249,7 +249,8 @@ printToString <- function(val) { `swank:listener-eval` <- function(slimeConnection, sldbState, string) { val <- eval(parse(text=string), envir = globalenv()) string <- printToString(val) - list(quote(`:values`), paste(string, collapse="\n")) + sendToEmacs(slimeConnection, list(quote(`:write-string`), paste(string, collapse="\n"), quote(`:repl-result`))) + list() } `swank:autodoc` <- function(slimeConnection, sldbState, rawForm, ...) { -- 2.39.5