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 init value for make-specialized-array

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

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

@ -475,14 +475,16 @@
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))) (init-value (if (and (pair? o) (pair? (cdr o)))
(cadr o) (cadr o)
(storage-class-default storage)))
(safe? (if (and (pair? o) (pair? (cdr o)) (pair? (cddr o)))
(car (cddr o))
(specialized-array-default-safe?))) (specialized-array-default-safe?)))
(body ((storage-class-maker storage) (body ((storage-class-maker storage)
(interval-volume domain) (interval-volume domain)
(storage-class-default storage))) init-value))
(coeffs (default-coeffs domain)) (coeffs (default-coeffs domain))
(indexer (coeffs->indexer coeffs domain))) (indexer (coeffs->indexer coeffs domain)))
(assert (boolean? safe?)) (assert (boolean? safe?))