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

Add array-empty?

Browse source 
Closes #969.
This commit is contained in:
Alex Shinn 2024-05-27 09:27:42 +09:00
parent 2f32ec6ba1
commit 7923b1c46d
3 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
lib/srfi/231.sld
View file

@ -37,6 +37,7 @@
storage-class-data? storage-class-data->body storage-class-data? storage-class-data->body
;; Arrays ;; Arrays
make-array array? array-domain array-getter array-dimension make-array array? array-domain array-getter array-dimension
array-empty?
mutable-array? array-setter specialized-array-default-safe? mutable-array? array-setter specialized-array-default-safe?
specialized-array-default-mutable? make-specialized-array specialized-array-default-mutable? make-specialized-array
make-specialized-array-from-data make-specialized-array-from-data

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

@ -311,6 +311,9 @@
(define (array-dimension a) (define (array-dimension a)
(interval-dimension (array-domain a))) (interval-dimension (array-domain a)))
(define (array-empty? a)
(interval-empty? (array-domain a)))
(define (mutable-array? x) (define (mutable-array? x)
(and (array? x) (array-setter x) #t)) (and (array? x) (array-setter x) #t))

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

@ -37,7 +37,7 @@
;; Arrays ;; Arrays
make-array array? array-domain array-getter array-dimension make-array array? array-domain array-getter array-dimension
mutable-array? array-setter specialized-array-default-safe? mutable-array? array-setter specialized-array-default-safe?
specialized-array-default-mutable? specialized-array-default-mutable? array-empty?
make-specialized-array make-specialized-array-from-data make-specialized-array make-specialized-array-from-data
specialized-array? array-storage-class array-indexer array-body specialized-array? array-storage-class array-indexer array-body
array-safe? array-coeffs array-adjacent? array-packed? array-safe? array-coeffs array-adjacent? array-packed?