X-Git-Url: http://christophe.rhodes.io/gitweb/?p=swankr.git;a=blobdiff_plain;f=swank.R;h=578d61c75a83f45f2a82081d9a09d89dc10d243e;hp=c0a3ce547c2574860ac46a9b3f13e72b9268166b;hb=7683b39edd19ab103e711753bffbba3632cc70eb;hpb=1083f5377e8173da9f6b85e80a7e1b63098005ab

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, ...) {