[Guile-commits] GNU Guile branch, stable-2.0, updated. v2.0.9-75-gdf3acd2

[Mark H Weaver]

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 <address@hidden>
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