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

Fix zero-dimensional array indexing.

Browse source
This commit is contained in:
Alex Shinn 2023-06-20 22:16:18 +09:00
parent b06c4cca9d
commit 44f8c91931
1 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -368,6 +368,9 @@
(define (coeffs->indexer coeffs domain) (define (coeffs->indexer coeffs domain)
(case (vector-length coeffs) (case (vector-length coeffs)
((1)
(let ((a (vector-ref coeffs 0)))
(lambda () a)))
((2) ((2)
(let ((a (vector-ref coeffs 0)) (let ((a (vector-ref coeffs 0))
(b (vector-ref coeffs 1))) (b (vector-ref coeffs 1)))
@ -404,8 +407,8 @@
(define (default-coeffs domain) (define (default-coeffs domain)
(let* ((dim (interval-dimension domain)) (let* ((dim (interval-dimension domain))
(res (make-vector (+ 1 dim)))) (res (make-vector (+ 1 dim))))
(vector-set! res 0 0)
(vector-set! res dim 1) (vector-set! res dim 1)
(vector-set! res 0 0)
(let lp ((i (- dim 1)) (let lp ((i (- dim 1))
(scale 1)) (scale 1))
(cond (cond
@ -472,6 +475,7 @@
adjacent?)) adjacent?))
(define (make-specialized-array domain . o) (define (make-specialized-array domain . o)
;; TODO: init value
(let* ((storage (if (pair? o) (car o) generic-storage-class)) (let* ((storage (if (pair? o) (car o) generic-storage-class))
(safe? (if (and (pair? o) (pair? (cdr o))) (safe? (if (and (pair? o) (pair? (cdr o)))
(cadr o) (cadr o)