mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-03 13:20:26 +02:00
Code Activity

Added comments to functions that are used by "modules.c".

Browse source
This commit is contained in:
Marius Vollmer 2001-11-23 21:43:44 +00:00
parent d2bc7faea7
commit 482a28f90a
1 changed files with 13 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -1702,6 +1702,9 @@
(lambda (symbol) (lambda (symbol)
(symbol-append prefix 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) (define (process-define-module args)
(let* ((module-id (car args)) (let* ((module-id (car args))
(module (resolve-module module-id #f)) (module (resolve-module module-id #f))
@ -1796,6 +1799,9 @@
(define autoloads-in-progress '()) (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) (define (try-module-autoload module-name)
(let* ((reverse-name (reverse module-name)) (let* ((reverse-name (reverse module-name))
(name (symbol->string (car reverse-name))) (name (symbol->string (car reverse-name)))
@ -2553,6 +2559,9 @@
;; The guts of the use-modules macro. Add the interfaces of the named ;; The guts of the use-modules macro. Add the interfaces of the named
;; modules to the use-list of the current module, in order. ;; 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) (define (process-use-modules module-interface-args)
(for-each (lambda (mif-args) (for-each (lambda (mif-args)
(let ((mod-iface (apply resolve-interface mif-args))) (let ((mod-iface (apply resolve-interface mif-args)))
@ -2619,7 +2628,10 @@
(defmacro ,@args)))))) (defmacro ,@args))))))
;; Export a local variable ;; 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) (define (module-export! m names)
(let ((public-i (module-public-interface m))) (let ((public-i (module-public-interface m)))
(for-each (lambda (name) (for-each (lambda (name)