mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-12 14:50:19 +02:00
Code Activity

* boot-9.scm (process-define-module): New options: :export-syntax,

Browse source 
:re-export-syntax
This commit is contained in:
Mikael Djurfeldt 2001-10-17 12:02:13 +00:00
parent 8186c4f536
commit 39819fa9e4
2 changed files with 7 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
ice-9/ChangeLog
View file

@ -1,3 +1,8 @@
2001-10-17 Mikael Djurfeldt <mdj@linnaeus>
* boot-9.scm (process-define-module): New options: :export-syntax,
:re-export-syntax
2001-10-14 Mikael Djurfeldt <mdj@linnaeus> 2001-10-14 Mikael Djurfeldt <mdj@linnaeus>
* arrays.scm (read:uniform-vector): Return *unspecified* instead * arrays.scm (read:uniform-vector): Return *unspecified* instead

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

@ -1749,14 +1749,14 @@
((#:pure) ((#:pure)
(purify-module! module) (purify-module! module)
(loop (cdr kws) reversed-interfaces exports re-exports)) (loop (cdr kws) reversed-interfaces exports re-exports))
((#:export) ((#:export #:export-syntax)
(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-exports))
((#:re-export) ((#:re-export #:re-export-syntax)
(or (pair? (cdr kws)) (or (pair? (cdr kws))
(unrecognized kws)) (unrecognized kws))
(loop (cddr kws) (loop (cddr kws)