diff options
author | Mark H Weaver <mhw@netris.org> | 2019-06-06 03:20:09 -0400 |
---|---|---|
committer | Mark H Weaver <mhw@netris.org> | 2019-06-06 03:20:09 -0400 |
commit | 10606b8760f34865d0319e15cd7dac5403ce4f10 (patch) | |
tree | da0ac0fef6ae14ca93424f17d926d111152a0cfa /libguile/random.c | |
parent | de42f120999d3ca745ecec347ca8dfda7f12c181 (diff) | |
download | guile-10606b8760f34865d0319e15cd7dac5403ce4f10.tar.gz |
DRAFT: Add immediate floats (iflos).
Diffstat (limited to 'libguile/random.c')
-rw-r--r-- | libguile/random.c | 3 |
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; } } |