From 631c1902df539e28446aeec87bdd6762e4a4fa96 Mon Sep 17 00:00:00 2001 From: Mikael Djurfeldt Date: Sun, 22 Nov 1998 12:03:34 +0000 Subject: [PATCH] * boot-9.scm: Added warnings about bindings used in libguile/modules.c: the-module, set-current-module, make-modules-in, module-eval-closure. --- ice-9/boot-9.scm | 11 ++++++++++- 1 file changed, 10 insertions(+), 1 deletion(-) diff --git a/ice-9/boot-9.scm b/ice-9/boot-9.scm index 58ffd95d3..ad857a321 100644 --- a/ice-9/boot-9.scm +++ b/ice-9/boot-9.scm @@ -1350,7 +1350,10 @@ (define set-module-uses! (record-modifier module-type 'uses)) (define module-binder (record-accessor 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 set-module-eval-closure! (record-modifier module-type 'eval-closure)) (define module-transformer (record-accessor module-type 'transformer)) (define set-module-transformer! (record-modifier module-type 'transformer)) @@ -1660,7 +1663,9 @@ ;; the-module -;; +;; +;; NOTE: This binding is used in libguile/modules.c. +;; (define the-module #f) ;; scm:eval-transformer @@ -1671,6 +1676,8 @@ ;; ;; set the current module as viewed by the normalizer. ;; +;; NOTE: This binding is used in libguile/modules.c. +;; (define (set-current-module m) (set! the-module m) (if m @@ -1892,6 +1899,8 @@ (not (eq? module the-root-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) (if (null? name) module