CAUTION: scheme ahead!
From (define (slime48-start . port-file) ...
Scheme list are never #f, so the test is always true: (eval (if port-file `(start-swank ,@port-file) '(slime48))
diff -ur swank-scheme48.orig/load.scm swank-scheme48/load.scm --- swank-scheme48.orig/load.scm 2005-09-19 11:55:46.000000000 -0500 +++ swank-scheme48/load.scm 2005-09-19 11:50:13.000000000 -0500 @@ -73,9 +73,9 @@ (in 'slime48 (lambda () (call-with-values (lambda () - (eval (if port-file - `(start-swank ,@port-file) - '(slime48)) + (eval (if (null? port-file) + '(slime48) + `(start-swank ,@port-file)) (interaction-environment))) (lambda (world server) (user (lambda ()
I shall probably change this, which I believe Helmut Eller probably introduced (in order for slime.el to have a usable entry point), to something somewhat simpler that permits either a filename or a port number to be passed to SLIME48-START, and coalesce SWANK-START & SLIME48 into one procedure that either uses a given port or prints a random port to a filename. I'll do this when I get CVS access, which will be rather soon now.
-
Matthew D Swank -
Taylor Campbell