This is an automated email from the git hooks/post-receive script. It was generated because a ref change was pushed to the repository containing the project "GNU Guile".
http://git.savannah.gnu.org/cgit/guile.git/commit/?id=d2b7b761e510e9616db837b2e72819c90a3db25b The branch, master has been updated via d2b7b761e510e9616db837b2e72819c90a3db25b (commit) from 4d67cd4073b43bb48af6c1664357b5e18247e335 (commit) Those revisions listed above that are new to this repository have not appeared on any other notification email; so we list those revisions in full, below. - Log ----------------------------------------------------------------- commit d2b7b761e510e9616db837b2e72819c90a3db25b Author: Andy Wingo <wi...@pobox.com> Date: Tue Apr 27 22:57:54 2010 +0200 add module-export-all! * module/ice-9/boot-9.scm (module-export-all!): New function, exports all current and future local variables from a module. ----------------------------------------------------------------------- Summary of changes: module/ice-9/boot-9.scm | 14 ++++++++++++++ 1 files changed, 14 insertions(+), 0 deletions(-) diff --git a/module/ice-9/boot-9.scm b/module/ice-9/boot-9.scm index 05b6a19..d83b0bf 100644 --- a/module/ice-9/boot-9.scm +++ b/module/ice-9/boot-9.scm @@ -3411,6 +3411,20 @@ module '(ice-9 q) '(make-q q-length))}." (module-add! public-i external-name var))) names))) +;; Export all local variables from a module +;; +(define (module-export-all! mod) + (define (fresh-interface!) + (let ((iface (make-module))) + (set-module-name! iface (module-name mod)) + ;; for guile 2: (set-module-version! iface (module-version mod)) + (set-module-kind! iface 'interface) + (set-module-public-interface! mod iface) + iface)) + (let ((iface (or (module-public-interface mod) + (fresh-interface!)))) + (set-module-obarray! iface (module-obarray mod)))) + ;; Re-export a imported variable ;; (define (module-re-export! m names) hooks/post-receive -- GNU Guile
