~ chicken-core (chicken-5) dfbde3ebfe2afcc20a84e71c220c396a976ce60c

commit dfbde3ebfe2afcc20a84e71c220c396a976ce60c
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Tue Jul 26 03:54:39 2011 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Tue Jul 26 03:54:39 2011 +0200

    bugfix in ,m command

diff --git a/csi.scm b/csi.scm
index 06708607..42228f6f 100644
--- a/csi.scm
+++ b/csi.scm
@@ -427,11 +427,11 @@ 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~%"))
-	     ((string? name)
-	      (set! name (##sys#string->symbol name)))
 	     ((not (symbol? name))
 	      (printf "invalid module name `~a'~%" name))
 	     ((##sys#find-module (##sys#resolve-module-name name #f) #f) =>