mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-30 08:50:23 +02:00
Code Activity

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

Browse source 
(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
Download patch file Download diff file Expand all files Collapse all files

6
ice-9/ChangeLog
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

6
ice-9/boot-9.scm
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