diff options
author | Ludovic Courtès <ludo@gnu.org> | 2012-01-09 22:16:49 +0100 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2012-01-09 22:16:49 +0100 |
commit | 67543d076175d000bc95b902be8ea71cd9b75e26 (patch) | |
tree | 72edd287ba03f5a81732dbad3f5e011b9d8afb33 | |
parent | 94a751bdccbeaeba9f871d36c085f21b90ac3a84 (diff) | |
download | guile-67543d076175d000bc95b902be8ea71cd9b75e26.tar.gz |
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'.
-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; } |