[Guile-commits] GNU Guile branch, master, updated. release_1-9-11-317-g76aea20

[Andy Wingo]

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "GNU Guile".

http://git.savannah.gnu.org/cgit/guile.git/commit/?id=76aea207c805dca8a0f086bbe8edd48e294aa46f

The branch, master has been updated
       via  76aea207c805dca8a0f086bbe8edd48e294aa46f (commit)
      from  1d3aa2baaee0e1c2f7cc943107406241ea580c5f (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit 76aea207c805dca8a0f086bbe8edd48e294aa46f
Author: Andy Wingo <address@hidden>
Date:   Sat Sep 4 10:24:52 2010 -0700

    boot-9 refactor
    
    * module/ice-9/boot-9.scm (make-root-module, make-scm-module): Remove
      these functions; they are only called once, so we inline them at their
      call sites.
      (the-root-module, the-scm-module): The aforementioned call sites.

-----------------------------------------------------------------------

Summary of changes:
 module/ice-9/boot-9.scm |   66 +++++++++++++++++++---------------------------
 1 files changed, 27 insertions(+), 39 deletions(-)

diff --git a/module/ice-9/boot-9.scm b/module/ice-9/boot-9.scm
index 1c242df..3f00afb 100644
--- a/module/ice-9/boot-9.scm
+++ b/module/ice-9/boot-9.scm
@@ -1836,37 +1836,6 @@ If there is no handler at all, Guile prints an error and 
then exits."
 
 
 
-;;; {Low Level Bootstrapping}
-;;;
-
-;; make-root-module
-
-;; A root module uses the pre-modules-obarray as its obarray.  This
-;; special obarray accumulates all bindings that have been established
-;; before the module system is fully booted.
-;;
-;; (The obarray continues to be used by code that has been closed over
-;;  before the module system has been booted.)
-
-(define (make-root-module)
-  (let ((m (make-module 0)))
-    (set-module-obarray! m (%get-pre-modules-obarray))
-    m))
-
-;; make-scm-module
-
-;; The root interface is a module that uses the same obarray as the
-;; root module.  It does not allow new definitions, tho.
-
-(define (make-scm-module)
-  (let ((m (make-module 0)))
-    (set-module-obarray! m (%get-pre-modules-obarray))
-    (set-module-eval-closure! m (standard-interface-eval-closure m))
-    m))
-
-
-
-
 ;;; {Module-based Loading}
 ;;;
 
@@ -2131,15 +2100,34 @@ If there is no handler at all, Guile prints an error 
and then exits."
 
 (define (set-system-module! m s)
   (set-procedure-property! (module-eval-closure m) 'system-module s))
-(define the-root-module (make-root-module))
-(define the-scm-module (make-scm-module))
-(set-module-public-interface! the-root-module the-scm-module)
-(set-module-name! the-root-module '(guile))
-(set-module-name! the-scm-module '(guile))
-(set-module-kind! the-scm-module 'interface)
-(set-system-module! the-root-module #t)
-(set-system-module! the-scm-module #t)
 
+;; The root module uses the pre-modules-obarray as its obarray.  This
+;; special obarray accumulates all bindings that have been established
+;; before the module system is fully booted.
+;;
+;; (The obarray continues to be used by code that has been closed over
+;;  before the module system has been booted.)
+;;
+(define the-root-module
+  (let ((m (make-module 0)))
+    (set-module-obarray! m (%get-pre-modules-obarray))
+    (set-module-name! m '(guile))
+    (set-system-module! m #t)
+    m))
+
+;; The root interface is a module that uses the same obarray as the
+;; root module.  It does not allow new definitions, tho.
+;;
+(define the-scm-module
+  (let ((m (make-module 0)))
+    (set-module-obarray! m (%get-pre-modules-obarray))
+    (set-module-eval-closure! m (standard-interface-eval-closure m))
+    (set-module-name! m '(guile))
+    (set-module-kind! m 'interface)
+    (set-system-module! m #t)
+    m))
+
+(set-module-public-interface! the-root-module the-scm-module)
 
 
 


hooks/post-receive
-- 
GNU Guile