From 05e0e22bc58ec4f1d2f96238c3d0c13770f7c5dc Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Tue, 8 Feb 2011 22:57:45 +0100 Subject: [PATCH] fix scm_procedure on non-structs * libguile/procs.c (scm_procedure): Fix argument type check. --- libguile/procs.c | 4 ++-- 1 file 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