~ chicken-core (chicken-5) c1fc419fb06a90ef4ec950d71f50c908f51f8b2d

commit c1fc419fb06a90ef4ec950d71f50c908f51f8b2d
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Sun Feb 13 13:55:38 2011 +0100
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Sun Feb 13 13:55:38 2011 +0100

    ,m #f switches back to toplevel module (thanks to ckeen)

diff --git a/csi.scm b/csi.scm
index 47666058..7552df83 100644
--- a/csi.scm
+++ b/csi.scm
@@ -126,7 +126,7 @@ EOF
     --                            ignore all following options
 
 EOF
-) )
+) ) ;|  <--- for emacs font-lock
 
 (define (print-banner)
   (newline)
@@ -427,7 +427,10 @@ EOF
  (let ((printf printf))
    (lambda ()
      (let ((name (read)))
-       (cond ((string? name)
+       (cond ((not name)
+	      (##sys#current-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))