summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
693bbdb)
default makeReplResult function doing the standard
(:write-string value :repl-result) thing for the REPL.
-sendReplResult <- function(slimeConnection, value) {
+makeReplResult <- function(value) {
string <- printToString(value)
string <- printToString(value)
- sendToEmacs(slimeConnection,
- list(quote(`:write-string`),
- paste(string, collapse="\n"),
- quote(`:repl-result`)))
+ list(quote(`:write-string`), paste(string, collapse="\n"),
+ quote(`:repl-result`))
+}
+
+makeReplResultFunction <- makeReplResult
+
+sendReplResult <- function(slimeConnection, value) {
+ result <- makeReplResultFunction(value)
+ sendToEmacs(slimeConnection, result)
}
sendReplResultFunction <- sendReplResult
}
sendReplResultFunction <- sendReplResult