From: Peter Feigl <craven@gmx.net>
Date: Thu, 3 May 2012 07:36:24 +0000 (+0200)
Subject: Adding directory support to swank.scm.
X-Git-Tag: release-9.2.0~243^2~2
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=47973e318632007e592a8ac6c067bafdd22a0905;p=mit-scheme.git

Adding directory support to swank.scm.

* Directories
Added directory functions SWANK:DEFAULT-DIRECTORY and
SWANK:SET-DEFAULT-DIRECTORY for slime commands ,!d ,cd ,+d ,-d
,change-directory ,push-directory ,pop-directory ,pushd ,popd ,pwd
---

diff --git a/src/runtime/swank.scm b/src/runtime/swank.scm
index cd5907731..fa932d9b4 100644
--- a/src/runtime/swank.scm
+++ b/src/runtime/swank.scm
@@ -370,6 +370,13 @@ USA.
       (compiler:disassemble
        (eval (read-from-string string)
 	     (buffer-env))))))
+
+;;;; Directory Functions
+(define (swank:default-directory socket)
+  (->namestring (working-directory-pathname)))
+
+(define (swank:set-default-directory socket directory)
+  (->namestring (set-working-directory-pathname! directory)))
 
 ;;;; Miscellaneous