[slime-cvs] CVS slime/contrib

[CVS User heller]

Update of /project/slime/cvsroot/slime/contrib
In directory cl-net:/tmp/cvs-serv20510/contrib

Modified Files:
	ChangeLog swank-mit-scheme.scm 
Log Message:
* swank-mit-scheme.scm (swank:load-file): Print the result
instead of returning it.

* swank-mit-scheme.scm: Require release 9.

--- /project/slime/cvsroot/slime/contrib/ChangeLog	2011/01/12 15:01:07	1.429
+++ /project/slime/cvsroot/slime/contrib/ChangeLog	2011/01/20 22:00:11	1.430
@@ -1,3 +1,10 @@
+2011-01-20  Helmut Eller  <heller at common-lisp.net>
+
+	* swank-mit-scheme.scm (swank:load-file): Print the result
+	instead of returning it which breaks the protocol.
+
+	* swank-mit-scheme.scm: Require release 9.
+
 2011-01-12  Helmut Eller  <heller at common-lisp.net>
 
 	Some more MIT Scheme fixes.
--- /project/slime/cvsroot/slime/contrib/swank-mit-scheme.scm	2011/01/12 15:01:07	1.7
+++ /project/slime/cvsroot/slime/contrib/swank-mit-scheme.scm	2011/01/20 22:00:12	1.8
@@ -8,7 +8,7 @@
 ;;;; Installation:
 #|
 
-1. You need MIT Scheme (version 7.7.0 and 7.7.90 seem to work).
+1. You need MIT Scheme 9.0.1
 
 2. You also need the `netcat' program to create sockets 
    (netcat-openbsd on Debian).  MIT Scheme has some socket functions
@@ -66,6 +66,10 @@
 
 ;;; package: (swank)
 
+(if (< (car (get-subsystem-version "Release"))
+       '9)
+    (error "This file requires MIT Scheme Release 9"))
+
 (define (swank port)
   (accept-connections (or port 4005) #f))
 
@@ -378,7 +382,9 @@
 
 (define (swank:load-file socket file)
   (with-output-to-repl socket
-    (lambda () (load file (user-env *buffer-package*)))))
+    (lambda () 
+      (pprint-to-string 
+       (load file (user-env *buffer-package*))))))
 
 (define (swank:disassemble-form _ string)
   (let ((sexp (let ((sexp (read-from-string string)))