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

f*-storage-class defaults should be inexact

Browse source
This commit is contained in:
Alex Shinn 2024-09-04 22:58:02 +09:00
parent 491cf324ec
commit 0516e62b0b
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -47,16 +47,16 @@
u64vector-ref u64vector-set! u64? u64vector? make-u64vector u64vector-length 0)
(define-storage-class f32-storage-class
f32vector-ref f32vector-set! f32? f32vector? make-f32vector f32vector-length 0)
f32vector-ref f32vector-set! f32? f32vector? make-f32vector f32vector-length 0.)
(define-storage-class f64-storage-class
f64vector-ref f64vector-set! f64? f64vector? make-f64vector f64vector-length 0)
f64vector-ref f64vector-set! f64? f64vector? make-f64vector f64vector-length 0.)
(define-storage-class c64-storage-class
c64vector-ref c64vector-set! c64? c64vector? make-c64vector c64vector-length 0)
c64vector-ref c64vector-set! c64? c64vector? make-c64vector c64vector-length 0.)
(define-storage-class c128-storage-class
c128vector-ref c128vector-set! c128? c128vector? make-c128vector c128vector-length 0)
c128vector-ref c128vector-set! c128? c128vector? make-c128vector c128vector-length 0.)
(define-storage-class char-storage-class
(lambda (vec i) (integer->char (u32vector-ref vec i)))