summaryrefslogtreecommitdiff
path: root/libguile/random.c
diff options
context:
space:
mode:
authorMark H Weaver <mhw@netris.org>2019-06-06 03:20:09 -0400
committerMark H Weaver <mhw@netris.org>2019-06-06 03:20:09 -0400
commit10606b8760f34865d0319e15cd7dac5403ce4f10 (patch)
treeda0ac0fef6ae14ca93424f17d926d111152a0cfa /libguile/random.c
parentde42f120999d3ca745ecec347ca8dfda7f12c181 (diff)
downloadguile-10606b8760f34865d0319e15cd7dac5403ce4f10.tar.gz
DRAFT: Add immediate floats (iflos).
Diffstat (limited to 'libguile/random.c')
-rw-r--r--libguile/random.c3
1 files changed, 2 insertions, 1 deletions
diff --git a/libguile/random.c b/libguile/random.c
index 6fd567cca..a7b9c56d6 100644
--- a/libguile/random.c
+++ b/libguile/random.c
@@ -552,9 +552,10 @@ vector_scale_x (SCM v, double c)
}
else if (handle.element_type == SCM_ARRAY_ELEMENT_TYPE_SCM)
{
+ SCM cc = scm_from_double (c);
SCM *elts = (SCM *)(handle.writable_elements) + handle.base;
for (i = dims[0].lbnd; i <= ubnd; ++i, elts += inc)
- SCM_REAL_VALUE (*elts) *= c;
+ *elts = scm_product (*elts, cc);
return;
}
}