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> 2001-09-19 Thien-Thi Nguyen <ttn@glug.org>
* expect.scm: Commentary fix; nfc. * expect.scm: Commentary fix; nfc.

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

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