Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-19 05:39:18 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Fix coeffs in trivial dimensions to work with BLAS.

Browse source
This commit is contained in:
Alex Shinn 2023-06-04 06:05:29 +09:00
parent 6ea80c5ea4
commit 4b5e885f31
1 changed files with 6 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lib/srfi/231/base.scm
View file

@ -328,6 +328,9 @@
res))
((= (+ 1 (interval-lower-bound domain (- i 1)))
(interval-upper-bound domain (- i 1)))
(vector-set! res i (if (< i (interval-dimension domain))
(interval-width domain i)
1))
(lp (+ i 1) (cdr ls) offset count))
(else
(let ((dir (if (and (> count 0)
@ -396,7 +399,9 @@
res)
((= (+ 1 (interval-lower-bound domain i))
(interval-upper-bound domain i))
(vector-set! res (+ i 1) 0)
(vector-set! res (+ i 1) (if (< (+ i 1) dim)
(interval-width domain (+ i 1))
1))
(lp (- i 1) scale))
(else
(let ((coeff (* scale (- (interval-upper-bound domain i)