From 8c5bb72920a41d165726a1b5a610d823971f1ca8 Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Mon, 24 Oct 2011 18:13:51 +0200 Subject: add SCM_HEAP_OBJECT_P * libguile/tags.h (SCM_HEAP_OBJECT_P): New macro, an alias for SCM_NIMP. * libguile/arrays.c: * libguile/debug.c: * libguile/foreign.c: * libguile/gdbint.c: * libguile/guardians.c: * libguile/list.c: * libguile/modules.c: * libguile/options.c: * libguile/smob.c: * libguile/validate.h: * libguile/weak-set.c: * libguile/weak-table.c: * libguile/weak-vector.c: Use it instead of SCM_NIMP or !SCM_IMP. --- libguile/arrays.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'libguile/arrays.c') diff --git a/libguile/arrays.c b/libguile/arrays.c index d99081caf..cc5c72602 100644 --- a/libguile/arrays.c +++ b/libguile/arrays.c @@ -472,7 +472,7 @@ SCM_DEFINE (scm_transpose_array, "transpose-array", 1, 0, 1, int ndim, i, k; SCM_VALIDATE_REST_ARGUMENT (args); - SCM_ASSERT (SCM_NIMP (ra), ra, SCM_ARG1, FUNC_NAME); + SCM_ASSERT (SCM_HEAP_OBJECT_P (ra), ra, SCM_ARG1, FUNC_NAME); if (scm_is_generalized_vector (ra)) { -- cgit v1.2.1