Commit f26811f3 authored by Christophe Rhodes's avatar Christophe Rhodes
Browse files

implement `swank:operator-arglist` properly

Now that slime-operator-at-point is overrideable, I can even test this
from within Emacs -- but thanks to Philipp Marek for implementing this
in his SLIMV-based environment first.
parent 24bb738d
......@@ -348,7 +348,16 @@ sendReplResultFunction <- sendReplResult
}
`swank:operator-arglist` <- function(slimeConnection, sldbState, op, package) {
list()
if(!exists(op, envir = globalenv())) {
return(list())
}
funoid <- get(op, envir = globalenv())
if(is.function(funoid)) {
args <- formals(funoid)
paste(sprintf("%s=%s", names(args), args), collapse=", ")
} else {
list()
}
}
`swank:throw-to-toplevel` <- function(slimeConnection, sldbState) {
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment