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=df3acd296e7149630fd6030aced6331ae6dd424b The branch, stable-2.0 has been updated via df3acd296e7149630fd6030aced6331ae6dd424b (commit) from 1fcf690929d3cd5221f4fe95ed79f356be382a43 (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 df3acd296e7149630fd6030aced6331ae6dd424b Author: Mark H Weaver <m...@netris.org> Date: Mon Aug 19 19:30:42 2013 -0400 Improve error checking in 'define-public' and 'module-add!'. * module/ice-9/boot-9.scm (module-add!): Check that the symbol argument is actually a symbol. (define-public): Expand into 'define' in such a way that curried definitions will immediately fail. ----------------------------------------------------------------------- Summary of changes: module/ice-9/boot-9.scm | 4 +++- 1 files changed, 3 insertions(+), 1 deletions(-) diff --git a/module/ice-9/boot-9.scm b/module/ice-9/boot-9.scm index c825b35..3cd3bdc 100644 --- a/module/ice-9/boot-9.scm +++ b/module/ice-9/boot-9.scm @@ -2248,6 +2248,8 @@ VALUE." (define (module-add! m v var) (if (not (variable? var)) (error "Bad variable to module-add!" var)) + (if (not (symbol? v)) + (error "Bad symbol to module-add!" v)) (module-obarray-set! (module-obarray m) v var) (module-modified m)) @@ -3582,7 +3584,7 @@ CONV is not applied to the initial value." (syntax-rules () ((_ (name . args) . body) (begin - (define name (lambda args . body)) + (define (name . args) . body) (export name))) ((_ name val) (begin hooks/post-receive -- GNU Guile
