[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: |
Fri, 23 Nov 2001 16:55:03 -0500 |
CVSROOT: /cvs
Module name: guile
Branch: branch_release-1-6
Changes by: Marius Vollmer <address@hidden> 01/11/23 16:55:03
Modified files:
guile-core/ice-9: boot-9.scm
Log message:
Added comments to functions that are used by "modules.c".
CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/ice-9/boot-9.scm.diff?cvsroot=OldCVS&only_with_tag=branch_release-1-6&tr1=1.266.2.7&tr2=1.266.2.8&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.276
guile/guile-core/ice-9/boot-9.scm:1.277
--- guile/guile-core/ice-9/boot-9.scm:1.276 Mon Nov 5 18:09:10 2001
+++ guile/guile-core/ice-9/boot-9.scm Fri Nov 23 16:43:44 2001
@@ -1702,6 +1702,9 @@
(lambda (symbol)
(symbol-append prefix symbol)))
+;; This function is called from "modules.c". If you change it, be
+;; sure to update "modules.c" as well.
+
(define (process-define-module args)
(let* ((module-id (car args))
(module (resolve-module module-id #f))
@@ -1796,6 +1799,9 @@
(define autoloads-in-progress '())
+;; This function is called from "modules.c". If you change it, be
+;; sure to update "modules.c" as well.
+
(define (try-module-autoload module-name)
(let* ((reverse-name (reverse module-name))
(name (symbol->string (car reverse-name)))
@@ -2553,6 +2559,9 @@
;; The guts of the use-modules macro. Add the interfaces of the named
;; modules to the use-list of the current module, in order.
+;; This function is called by "modules.c". If you change it, be sure
+;; to change scm_c_use_module as well.
+
(define (process-use-modules module-interface-args)
(for-each (lambda (mif-args)
(let ((mod-iface (apply resolve-interface mif-args)))
@@ -2619,7 +2628,10 @@
(defmacro ,@args))))))
;; Export a local variable
-;;
+
+;; This function is called from "modules.c". If you change it, be
+;; sure to update "modules.c" as well.
+
(define (module-export! m names)
(let ((public-i (module-public-interface m)))
(for-each (lambda (name)