[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
guile/guile-core/ice-9 boot-9.scm
From: |
Marius Vollmer |
Subject: |
guile/guile-core/ice-9 boot-9.scm |
Date: |
Wed, 25 Apr 2001 15:04:27 -0700 |
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}
;;;
- guile/guile-core/ice-9 boot-9.scm,
Marius Vollmer <=