From: Christophe Rhodes <csr21@cantab.net>
Date: Sat, 20 Sep 2014 12:52:00 +0000 (+0100)
Subject: support new `swank-repl:...` protocol (as well as old protocol)
X-Git-Url: http://christophe.rhodes.io/gitweb/?p=swankr.git;a=commitdiff_plain;h=30b283c2edbb275ea1dcda80bffc46a0d29d8465

support new `swank-repl:...` protocol (as well as old protocol)
---

diff --git a/swank.R b/swank.R
index f7ea3b1..549e3ea 100644
--- a/swank.R
+++ b/swank.R
@@ -314,6 +314,8 @@ printToString <- function(val) {
   list("R", "R")
 }
 
+`swank-repl:create-repl` <- `swank:create-repl`
+
 makeReplResult <- function(value) {
   string <- printToString(value)
   list(quote(`:write-string`), string,
@@ -344,6 +346,8 @@ sendReplResultFunction <- sendReplResult
   list()
 }
 
+`swank-repl:listener-eval` <- `swank:listener-eval`
+
 `swank:clear-repl-variables` <- function(slimeConnection, sldbState) {
   list()
 }