diff options
Diffstat (limited to 'libguile/arrays.c')
-rw-r--r-- | libguile/arrays.c | 8 |
1 files 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; } |