[Guile-commits] GNU Guile branch, master, updated. release_1-9-15-11-g05e0e22

[Andy Wingo]

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=05e0e22bc58ec4f1d2f96238c3d0c13770f7c5dc

The branch, master has been updated
       via  05e0e22bc58ec4f1d2f96238c3d0c13770f7c5dc (commit)
      from  de6fb1875d1a7e8d2a39ec8eba753c07abcd4263 (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 05e0e22bc58ec4f1d2f96238c3d0c13770f7c5dc
Author: Andy Wingo <address@hidden>
Date:   Tue Feb 8 22:57:45 2011 +0100

    fix scm_procedure on non-structs
    
    * libguile/procs.c (scm_procedure): Fix argument type check.

-----------------------------------------------------------------------

Summary of changes:
 libguile/procs.c |    4 ++--
 1 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/libguile/procs.c b/libguile/procs.c
index dc5a320..2b7225e 100644
--- a/libguile/procs.c
+++ b/libguile/procs.c
@@ -134,8 +134,8 @@ SCM_DEFINE (scm_procedure, "procedure", 1, 0, 0,
            "applicable struct.")
 #define FUNC_NAME s_scm_procedure
 {
-  SCM_VALIDATE_NIM (1, proc);
-  SCM_ASSERT (SCM_STRUCT_APPLICABLE_P (proc), proc, SCM_ARG1, FUNC_NAME);
+  SCM_ASSERT (SCM_STRUCTP (proc) && SCM_STRUCT_APPLICABLE_P (proc),
+              proc, SCM_ARG1, FUNC_NAME);
   return SCM_STRUCT_PROCEDURE (proc);
 }
 #undef FUNC_NAME


hooks/post-receive
-- 
GNU Guile