From 2c0d53bc49f3dd18df3227759ba4ff40c8535ee5 Mon Sep 17 00:00:00 2001
From: Christophe Rhodes <csr21@cantab.net>
Date: Mon, 30 Aug 2010 21:45:48 +0100
Subject: [PATCH] A proper implementation of swank:swank-require

We can do this nicely now that we have an evaluator of :emacs-rex
forms that can cope with quote.
---
 swank.R | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/swank.R b/swank.R
index b9d89cb..e6e78c7 100644
--- a/swank.R
+++ b/swank.R
@@ -259,6 +259,12 @@ printToString <- function(val) {
 }
 
 `swank:swank-require` <- function (slimeConnection, sldbState, contribs) {
+  for(contrib in contribs) {
+    filename <- sprintf("%s.R", as.character(contrib))
+    if(file.exists(filename)) {
+      source(filename, verbose=TRUE)
+    }
+  }
   list()
 }
 
-- 
2.30.2