From 85dd189db72b44284ac2da666c100d7c36c94d6e Mon Sep 17 00:00:00 2001 From: Christophe Rhodes Date: Sat, 20 Aug 2011 09:57:50 +0100 Subject: [PATCH] make contribs load when the working directory isn't swankr's depends on swank.R itself being source()d with chdir=TRUE, but doesn't break any previously-working use case. --- swank.R | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/swank.R b/swank.R index ebf580c..11210e2 100644 --- a/swank.R +++ b/swank.R @@ -13,6 +13,12 @@ ### latest version of the GNU General Public Licence is available at ### . +### KLUDGE: this assumes that we're being sourced with chdir=TRUE. +### (If not, `swank:swank-require` will work under the circumstances +### that it used to work anyway -- i.e. the working directory is the +### swankr directory) +swankrPath <- getwd() + swank <- function(port=4005) { acceptConnections(port, FALSE) } @@ -288,7 +294,7 @@ printToString <- function(val) { `swank:swank-require` <- function (slimeConnection, sldbState, contribs) { for(contrib in contribs) { - filename <- sprintf("%s.R", as.character(contrib)) + filename <- sprintf("%s/%s.R", swankrPath, as.character(contrib)) if(file.exists(filename)) { source(filename) } -- 2.39.5