summaryrefslogtreecommitdiff
path: root/libguile/procs.c
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2011-02-08 22:57:45 +0100
committerAndy Wingo <wingo@pobox.com>2011-02-08 23:00:09 +0100
commit05e0e22bc58ec4f1d2f96238c3d0c13770f7c5dc (patch)
tree70fd5035bbadb5501bc2c3a734b328af8ccb263d /libguile/procs.c
parentde6fb1875d1a7e8d2a39ec8eba753c07abcd4263 (diff)
downloadguile-05e0e22bc58ec4f1d2f96238c3d0c13770f7c5dc.tar.gz
fix scm_procedure on non-structs
* libguile/procs.c (scm_procedure): Fix argument type check.
Diffstat (limited to 'libguile/procs.c')
-rw-r--r--libguile/procs.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/libguile/procs.c b/libguile/procs.c
index dc5a32074..2b7225efe 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