~ 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