1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-28 16:00:22 +02:00

* * boot-9.scm (use-modules): New macro (from Marius Vollmer).

(use-modules <module name> ...) Put the the modules named by
	<module name> ... on the use list of the current module.
This commit is contained in:
Mikael Djurfeldt 1997-01-05 23:38:10 +00:00
parent 01cf384076
commit 33cf699f6e
2 changed files with 12 additions and 0 deletions

View file

@ -1,3 +1,9 @@
Mon Jan 6 01:13:53 1997 Mikael Djurfeldt <mdj@kenneth>
* * boot-9.scm (use-modules): New macro (from Marius Vollmer).
(use-modules <module name> ...) Put the the modules named by
<module name> ... on the use list of the current module.
Sun Jan 5 15:52:59 1997 Jim Blandy <jimb@floss.cyclic.com>
* boot-9.scm (error-catching-loop): Remove message saying that

View file

@ -2148,6 +2148,12 @@ automatically if an error occurs in the future.\n")
(set-current-module module)
module))
(defmacro use-modules modules
`(for-each (lambda (module)
(module-use! (current-module)
(resolve-interface module)))
(reverse ',modules)))
(define define-private define)
(defmacro define-public args