mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-06 04:00:26 +02:00
Code Activity

* boot-9.scm (process-define-module): Added :re-export.

Browse source
This commit is contained in:
Mikael Djurfeldt 2001-09-24 11:13:43 +00:00
parent 5ea2971668
commit 4f39d095cb
2 changed files with 23 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

4
ice-9/ChangeLog
View file

@ -1,3 +1,7 @@
2001-09-24 Mikael Djurfeldt <mdj@linnaeus>
* boot-9.scm (process-define-module): Added :re-export.
2001-09-19 Thien-Thi Nguyen <ttn@glug.org>
* expect.scm: Commentary fix; nfc.

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

@ -1735,13 +1735,15 @@
(beautify-user-module! module)
(let loop ((kws kws)
(reversed-interfaces '())
(exports '()))
(exports '())
(re-exports '()))
(if (null? kws)
(begin
(for-each (lambda (interface)
(module-use! module interface))
(reverse reversed-interfaces))
(module-export! module exports))
(module-export! module exports)
(module-re-export! module re-exports))
(case (car kws)
((#:use-module #:use-syntax)
(or (pair? (cdr kws))
@ -1759,7 +1761,8 @@
#f)))
(loop (cddr kws)
(cons interface reversed-interfaces)
exports)))
exports
re-exports)))
((#:autoload)
(or (and (pair? (cdr kws)) (pair? (cddr kws)))
(unrecognized kws))
@ -1768,19 +1771,28 @@
(cadr kws)
(caddr kws))
reversed-interfaces)
exports))
exports
re-exports))
((#:no-backtrace)
(set-system-module! module #t)
(loop (cdr kws) reversed-interfaces exports))
(loop (cdr kws) reversed-interfaces exports re-exports))
((#:pure)
(purify-module! module)
(loop (cdr kws) reversed-interfaces exports))
(loop (cdr kws) reversed-interfaces exports re-exports))
((#:export)
(or (pair? (cdr kws))
(unrecognized kws))
(loop (cddr kws)
reversed-interfaces
(append (cadr kws) exports)))
(append (cadr kws) exports)
re-exports))
((#:re-export)
(or (pair? (cdr kws))
(unrecognized kws))
(loop (cddr kws)
reversed-interfaces
exports
(append (cadr kws) re-exports)))
(else
(unrecognized kws)))))
module))