Update of /project/slime/cvsroot/slime/swank-scheme48
In directory common-lisp.net:/tmp/cvs-serv8185
Modified Files:
load.scm
Log Message:
(slime48-start): Fix '() vs. #f bug.
Date: Wed Sep 21 13:45:12 2005
Author: heller
Index: slime/swank-scheme48/load.scm
diff -u slime/swank-scheme48/load.scm:1.1 slime/swank-scheme48/load.scm:1.2
--- slime/swank-scheme48/load.scm:1.1 Sun Sep 18 23:10:21 2005
+++ slime/swank-scheme48/load.scm Wed Sep 21 13:45:12 2005
@@ -73,9 +73,9 @@
(in 'slime48
(lambda ()
(call-with-values (lambda ()
- (eval (if port-file
- `(start-swank , at port-file)
- '(slime48))
+ (eval (if (null? port-file)
+ '(slime48)
+ `(start-swank , at port-file))
(interaction-environment)))
(lambda (world server)
(user (lambda ()