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:
parent
01cf384076
commit
33cf699f6e
2 changed files with 12 additions and 0 deletions
|
@ -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
|
||||
|
|
|
@ -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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue