Permalink
Browse files

Add swank:set-default-directory and swank:default-directory (from Der…

…rell Piper)
  • Loading branch information...
1 parent 7db8cc9 commit 62559d3d4465cf03a8d811eef799749442dd042c @nickg committed Sep 10, 2012
Showing with 14 additions and 4 deletions.
  1. +6 −4 slime.scm
  2. +8 −0 swank-chicken.scm
View
@@ -21,10 +21,12 @@
swank:swank-require
swank:describe-symbol
swank:documentation-symbol
- swank:inspect-frame-var
- swank:quit-inspector
- swank:frame-locals-and-catch-tags
- swank:apropos-list-for-emacs)
+ swank:inspect-frame-var
+ swank:quit-inspector
+ swank:frame-locals-and-catch-tags
+ swank:apropos-list-for-emacs
+ swank:set-default-directory
+ swank:default-directory)
(import scheme
chicken irregex)
(use ports
View
@@ -586,6 +586,14 @@
(define swank:coding-system "utf-8-unix")
+
+(define (swank:default-directory)
+ `(:ok ,(current-directory)))
+
+(define (swank:set-default-directory sym)
+ `(:ok ,(current-directory sym)))
+
+
;; Unimplemented.
(define (swank:buffer-first-change . _) '(:ok nil))
(define (swank:filename-to-modulename . _) '(:ok nil))

0 comments on commit 62559d3

Please sign in to comment.