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=b072b8e6924bb1a05ffb66bcbde30b375df5443f The branch, stable-2.0 has been updated via b072b8e6924bb1a05ffb66bcbde30b375df5443f (commit) from 8857e271d810623868509f837d17613195f6528c (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 b072b8e6924bb1a05ffb66bcbde30b375df5443f Author: Ian Price <[email protected]> Date: Thu Jul 31 16:05:58 2014 +0100 Provide curried version of define*-public. * module/ice-9/curried-definitions.scm (define*-public): New macro. ----------------------------------------------------------------------- Summary of changes: module/ice-9/curried-definitions.scm | 13 ++++++++++++- 1 files changed, 12 insertions(+), 1 deletions(-) diff --git a/module/ice-9/curried-definitions.scm b/module/ice-9/curried-definitions.scm index fa36990..7545338 100644 --- a/module/ice-9/curried-definitions.scm +++ b/module/ice-9/curried-definitions.scm @@ -17,7 +17,8 @@ (define-module (ice-9 curried-definitions) #:replace ((cdefine . define) (cdefine* . define*) - define-public)) + define-public + define*-public)) (define-syntax cdefine (syntax-rules () @@ -44,3 +45,13 @@ (begin (define name val) (export name))))) + +(define-syntax define*-public + (syntax-rules () + ((_ (head . rest) body body* ...) + (define*-public head + (lambda* rest body body* ...))) + ((_ name val) + (begin + (define* name val) + (export name))))) hooks/post-receive -- GNU Guile
