~ chicken-core (chicken-5) 5598d83d062d7a66e7eec6596bf668cc93f4705a

commit 5598d83d062d7a66e7eec6596bf668cc93f4705a
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Wed Aug 31 12:46:21 2011 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Wed Aug 31 12:46:21 2011 +0200

    fixed bug in ##sys#switch-module (thanks to ckeen)

diff --git a/modules.scm b/modules.scm
index 5dea0ac5..7d627795 100644
--- a/modules.scm
+++ b/modules.scm
@@ -153,8 +153,8 @@
 	(let ((saved (if mod (module-saved-environments mod) saved-default-envs)))
 	  (when saved
 	    (##sys#current-environment (car saved))
-	    (##sys#macro-environment (cdr saved))
-	    (##sys#current-module mod)))))))
+	    (##sys#macro-environment (cdr saved)))
+	  (##sys#current-module mod))))))
 
 (define (##sys#add-to-export-list mod exps)
   (set-module-export-list!