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

* boot-9.scm (export, export-syntax): New special forms: Export

Browse source 
bindings from a module.  `(export name1 name2 ...)' can be used at
the top of a module (after `define-module') to specify which names
should be exported.  It can be used as an alternative to
`define-public'.  `export-syntax' works equivalently to `export'
but is intended for export of syntactic keywords.
(Thanks to Thien-Thi Nguyen.)
This commit is contained in:
Mikael Djurfeldt 1998-07-15 23:01:45 +00:00
parent 39bc994824
commit a0cc0a0125
2 changed files with 23 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

10
ice-9/ChangeLog
View file

@ -1,3 +1,13 @@
1998-07-16 Mikael Djurfeldt <mdj@barbara.nada.kth.se>
* boot-9.scm (export, export-syntax): New special forms: Export
bindings from a module. `(export name1 name2 ...)' can be used at
the top of a module (after `define-module') to specify which names
should be exported. It can be used as an alternative to
`define-public'. `export-syntax' works equivalently to `export'
but is intended for export of syntactic keywords.
(Thanks to Thien-Thi Nguyen.)
1998-07-15 Mikael Djurfeldt <mdj@barbara.nada.kth.se>
* boot-9.scm: Renamed module `(guile-repl)' --> `(guile-user)'.

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

@ -2798,6 +2798,19 @@
(defmacro ,@ args))))))
(defmacro export names
`(let* ((m (current-module))
(public-i (module-public-interface m)))
(for-each (lambda (name)
;; Make sure there is a local variable:
(module-define! m name (module-ref m name #f))
;; Make sure that local is exported:
(module-add! public-i name (module-variable m name)))
',names)))
(define export-syntax export)
(define load load-module)