mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-12 14:50:19 +02:00
Code Activity

fix scm_procedure on non-structs

Browse source 
* libguile/procs.c (scm_procedure): Fix argument type check.
This commit is contained in:
Andy Wingo 2011-02-08 22:57:45 +01:00
parent de6fb1875d
commit 05e0e22bc5
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/procs.c
View file

@ -134,8 +134,8 @@ SCM_DEFINE (scm_procedure, "procedure", 1, 0, 0,
"applicable struct.") "applicable struct.")
#define FUNC_NAME s_scm_procedure #define FUNC_NAME s_scm_procedure
{ {
SCM_VALIDATE_NIM (1, proc); SCM_ASSERT (SCM_STRUCTP (proc) && SCM_STRUCT_APPLICABLE_P (proc),
SCM_ASSERT (SCM_STRUCT_APPLICABLE_P (proc), proc, SCM_ARG1, FUNC_NAME); proc, SCM_ARG1, FUNC_NAME);
return SCM_STRUCT_PROCEDURE (proc); return SCM_STRUCT_PROCEDURE (proc);
} }
#undef FUNC_NAME #undef FUNC_NAME