summaryrefslogtreecommitdiff
path: root/libguile/unif.c
diff options
context:
space:
mode:
authorDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2000-04-18 15:49:34 +0000
committerDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2000-04-18 15:49:34 +0000
commitbaa702c81fd3754cac0468ac75b0fc463b8372f0 (patch)
tree40320b9e87ccc95c887610017d678c44a73d3e70 /libguile/unif.c
parent120d4924ed1ee56975845016fb2d98d4301b9ad9 (diff)
downloadguile-baa702c81fd3754cac0468ac75b0fc463b8372f0.tar.gz
Fixed a stupid bug introduced with the last patch. Sorry.
Diffstat (limited to 'libguile/unif.c')
-rw-r--r--libguile/unif.c1
1 files changed, 1 insertions, 0 deletions
diff --git a/libguile/unif.c b/libguile/unif.c
index 8e2761227..343c25a17 100644
--- a/libguile/unif.c
+++ b/libguile/unif.c
@@ -2210,6 +2210,7 @@ l2ra (SCM lst, SCM ra, scm_sizet base, scm_sizet k)
{
if (SCM_IMP (lst) || SCM_NCONSP (lst))
return 0;
+ scm_array_set_x (SCM_ARRAY_V (ra), SCM_CAR (lst), SCM_MAKINUM (base));
base += inc;
lst = SCM_CDR (lst);
}