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

array-freeze! also makes the underlying storage immutable

Browse source
This commit is contained in:
Alex Shinn 2024-09-11 10:13:54 +09:00
parent 0516e62b0b
commit 2acef43da7
3 changed files with 19 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -334,6 +334,7 @@
(define (array-freeze! array) (define (array-freeze! array)
(%array-setter-set! array #f) (%array-setter-set! array #f)
(make-immutable! (array-body array))
array) array)
;; Indexing ;; Indexing

5
lib/srfi/231/base.sld
View file

@ -46,4 +46,9 @@
specialized-getter specialized-setter specialized-getter specialized-setter
array-freeze! array-freeze!
) )
(cond-expand
(chibi
(import (only (chibi) make-immutable!)))
(else
(begin (define-syntax make-immutable! (syntax-rules () ((_ x) #f))))))
(include "base.scm")) (include "base.scm"))

13
lib/srfi/231/test.sld
View file

@ -2188,6 +2188,19 @@
(array-curry (list*->array 3 '(((4 7) (2 6)) ((1 0) (0 1)))) (array-curry (list*->array 3 '(((4 7) (2 6)) ((1 0) (0 1))))
2) 2)
0))) 0)))
(let* ((A (array-copy
(make-array (make-interval '#(0 0) '#(10 10))
(lambda (i j) (inexact (+ (* i 10.) j))))
f32-storage-class))
(A3 (array-ref (array-curry A 1) 3)))
(test 37. (array-ref A 3 7))
(test 37. (array-ref A3 7))
(array-set! A 0. 3 7)
(test 0. (array-ref A 3 7))
(test 0. (array-ref A3 7))
(array-freeze! A)
(test-error (array-set! A 1. 3 7))
(test-error (array-set! A3 1. 7)))
;; (test-error ;; (test-error
;; (array-curry (make-array (make-interval '#(0 0) '#(1 1)) list) 0)) ;; (array-curry (make-array (make-interval '#(0 0) '#(1 1)) list) 0))