mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-12 23:00:22 +02:00
Code Activity

* boot-9.scm: Added warnings about bindings used in

Browse source 
libguile/modules.c: the-module, set-current-module,
make-modules-in, module-eval-closure.
This commit is contained in:
Mikael Djurfeldt 1998-11-22 12:03:34 +00:00
parent bd0a8b6566
commit 631c1902df
1 changed files with 10 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

11
ice-9/boot-9.scm
View file

@ -1350,7 +1350,10 @@
(define set-module-uses! (record-modifier module-type 'uses)) (define set-module-uses! (record-modifier module-type 'uses))
(define module-binder (record-accessor module-type 'binder)) (define module-binder (record-accessor module-type 'binder))
(define set-module-binder! (record-modifier module-type 'binder)) (define set-module-binder! (record-modifier module-type 'binder))
;; NOTE: This binding is used in libguile/modules.c.
(define module-eval-closure (record-accessor module-type 'eval-closure)) (define module-eval-closure (record-accessor module-type 'eval-closure))
(define set-module-eval-closure! (record-modifier module-type 'eval-closure)) (define set-module-eval-closure! (record-modifier module-type 'eval-closure))
(define module-transformer (record-accessor module-type 'transformer)) (define module-transformer (record-accessor module-type 'transformer))
(define set-module-transformer! (record-modifier module-type 'transformer)) (define set-module-transformer! (record-modifier module-type 'transformer))
@ -1660,7 +1663,9 @@
;; the-module ;; the-module
;; ;;
;; NOTE: This binding is used in libguile/modules.c.
;;
(define the-module #f) (define the-module #f)
;; scm:eval-transformer ;; scm:eval-transformer
@ -1671,6 +1676,8 @@
;; ;;
;; set the current module as viewed by the normalizer. ;; set the current module as viewed by the normalizer.
;; ;;
;; NOTE: This binding is used in libguile/modules.c.
;;
(define (set-current-module m) (define (set-current-module m)
(set! the-module m) (set! the-module m)
(if m (if m
@ -1892,6 +1899,8 @@
(not (eq? module the-root-module))) (not (eq? module the-root-module)))
(set-module-uses! module (append (module-uses module) (list the-scm-module))))) (set-module-uses! module (append (module-uses module) (list the-scm-module)))))
;; NOTE: This binding is used in libguile/modules.c.
;;
(define (make-modules-in module name) (define (make-modules-in module name)
(if (null? name) (if (null? name)
module module