~ 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