~ chicken-core (chicken-5) 31e69d239113b92ced5cd94c74c4f5a9bd70ea2d


commit 31e69d239113b92ced5cd94c74c4f5a9bd70ea2d
Author:     Evan Hanson <evhan@foldling.org>
AuthorDate: Tue Nov 3 23:11:19 2015 +1300
Commit:     Evan Hanson <evhan@foldling.org>
CommitDate: Tue Nov 3 23:12:00 2015 +1300

    Support library lists when switching modules with csi's ",m" command

diff --git a/csi.scm b/csi.scm
index c30714b9..85b1b3e6 100644
--- a/csi.scm
+++ b/csi.scm
@@ -429,13 +429,9 @@ EOF
  (let ((printf printf))
    (lambda ()
      (let ((name (read)))
-       (when (string? name)
-	 (set! name (##sys#string->symbol name)))
        (cond ((not name)
 	      (##sys#switch-module #f)
 	      (printf "; resetting current module to toplevel~%"))
-	     ((not (symbol? name))
-	      (printf "invalid module name `~a'~%" name))
 	     ((##sys#find-module (##sys#resolve-module-name name #f) #f) =>
 	      (lambda (m)
 		(##sys#switch-module m)
Trap