From 67543d076175d000bc95b902be8ea71cd9b75e26 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Ludovic=20Court=C3=A8s?= Date: Mon, 9 Jan 2012 22:16:49 +0100 Subject: [PATCH] Fix incorrect use of `SCM_UNPACK'. * libguile/arrays.c (scm_i_make_array): Cast the result of `scm_gc_malloc' directly to `scm_t_bits'. --- libguile/arrays.c | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/libguile/arrays.c b/libguile/arrays.c index c17f125fb..97b5aad9b 100644 --- a/libguile/arrays.c +++ b/libguile/arrays.c @@ -109,14 +109,14 @@ SCM_DEFINE (scm_shared_array_increments, "shared-array-increments", 1, 0, 0, } #undef FUNC_NAME -SCM +SCM scm_i_make_array (int ndim) { SCM ra; ra = scm_cell (((scm_t_bits) ndim << 17) + scm_tc7_array, - SCM_UNPACK (scm_gc_malloc ((sizeof (scm_i_t_array) + - ndim * sizeof (scm_t_array_dim)), - "array"))); + (scm_t_bits) scm_gc_malloc (sizeof (scm_i_t_array) + + ndim * sizeof (scm_t_array_dim), + "array")); SCM_I_ARRAY_V (ra) = SCM_BOOL_F; return ra; } -- 2.20.1