From 115b9ee8ab976e8ff6d5a4d9a0a8469a929cca7e Mon Sep 17 00:00:00 2001
From: Andy Wingo <wingo@pobox.com>
Date: Mon, 1 Sep 2008 23:37:15 -0700
Subject: [PATCH] enter into the (guile) module when compiling boot-9.scm

* ice-9/boot-9.scm: Before doing very much, put us into the (guile)
  module when compiling. This avoids some circularity in the module boot
  process, whereby symbols are seen to resolve to the (guile-user)
  module, whereas in fact they originally pertain to the (guile) module.
---
 ice-9/boot-9.scm | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/ice-9/boot-9.scm b/ice-9/boot-9.scm
index 1bb477746..138ea16b7 100644
--- a/ice-9/boot-9.scm
+++ b/ice-9/boot-9.scm
@@ -125,6 +125,14 @@
 
 
 
+;; Before compiling, make sure any symbols are resolved in the (guile)
+;; module, the primary location of those symbols, rather than in
+;; (guile-user), the default module that we compile in.
+
+(eval-case
+ ((compile-toplevel)
+  (set-current-module (resolve-module '(guile)))))
+
 ;;; {Defmacros}
 ;;;
 ;;; Depends on: features, eval-case