summaryrefslogtreecommitdiff
path: root/libguile/unif.c
diff options
context:
space:
mode:
authorMikael Djurfeldt <djurfeldt@nada.kth.se>2001-11-02 12:31:50 +0000
committerMikael Djurfeldt <djurfeldt@nada.kth.se>2001-11-02 12:31:50 +0000
commit08112c957b93167b622a5502fb95ac683246becf (patch)
tree5b2dd3092d6f7c24b7ae6d93c7c424495a9c8e94 /libguile/unif.c
parentebd3a55a52c30d29121685bfe19648708b067b2e (diff)
downloadguile-08112c957b93167b622a5502fb95ac683246becf.tar.gz
* unif.c (scm_ra2contig): Fixed memory overwrite bug.
Diffstat (limited to 'libguile/unif.c')
-rw-r--r--libguile/unif.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/unif.c b/libguile/unif.c
index 2ace9239e..392e376b2 100644
--- a/libguile/unif.c
+++ b/libguile/unif.c
@@ -1472,7 +1472,7 @@ scm_ra2contig (SCM ra, int copy)
SCM_ARRAY_DIMS (ret)[k].inc = inc;
inc *= SCM_ARRAY_DIMS (ra)[k].ubnd - SCM_ARRAY_DIMS (ra)[k].lbnd + 1;
}
- SCM_ARRAY_V (ret) = scm_make_uve ((inc - 1), scm_array_prototype (ra));
+ SCM_ARRAY_V (ret) = scm_make_uve (inc, scm_array_prototype (ra));
if (copy)
scm_array_copy_x (ra, ret);
return ret;