guile/guile-core/ice-9 boot-9.scm

[Marius Vollmer]

CVSROOT:        /cvs
Module name:    guile
Changes by:     Marius Vollmer <>       01/04/25 15:04:26

Modified files:
        guile-core/ice-9: boot-9.scm 

Log message:
        * boot-9.scm (the-module, set-current-module, current-module):
        Removed, they are now defined in libguile.

CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/ice-9/boot-9.scm.diff?cvsroot=OldCVS&tr1=1.236&tr2=1.237&r1=text&r2=text

Patches:
Index: guile/guile-core/ice-9/boot-9.scm
diff -u guile/guile-core/ice-9/boot-9.scm:1.236 
guile/guile-core/ice-9/boot-9.scm:1.237
--- guile/guile-core/ice-9/boot-9.scm:1.236     Sun Apr 15 20:42:36 2001
+++ guile/guile-core/ice-9/boot-9.scm   Wed Apr 25 15:04:25 2001
@@ -1013,7 +1013,7 @@
       ;; to maximally one module.
       (set-procedure-property! closure 'module module))))
 
-;;; This procedure is depreated
+;;; This procedure is deprecated
 ;;;
 (define eval-in-module eval)
 
@@ -1345,39 +1345,6 @@
   (make-module 1019 '() scm-module-closure))
 
 
-
-;; the-module
-;;
-;; NOTE: This binding is used in libguile/modules.c.
-;;
-(define the-module (make-fluid))
-
-;; scm:eval-transformer
-;;
-;;(define scm:eval-transformer (make-fluid)) ; initialized in eval.c.
-
-;; set-current-module module
-;;
-;; set the current module as viewed by the normalizer.
-;;
-;; NOTE: This binding is used in libguile/modules.c.
-;;
-(define (set-current-module m)
-  (fluid-set! the-module m)
-  (if m
-      (begin
-       ;; *top-level-lookup-closure* is now deprecated
-       (fluid-set! *top-level-lookup-closure*
-                   (module-eval-closure (fluid-ref the-module)))
-       (fluid-set! scm:eval-transformer (module-transformer (fluid-ref 
the-module))))
-      (fluid-set! *top-level-lookup-closure* #f)))
-
-
-;; current-module
-;;
-;; return the current module as viewed by the normalizer.
-;;
-(define (current-module) (fluid-ref the-module))
 
 ;;; {Module-based Loading}
 ;;;