From 0516e62b0b985faa1441e330d4cca92608b42f5b Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Wed, 4 Sep 2024 22:58:02 +0900 Subject: [PATCH] f*-storage-class defaults should be inexact --- lib/srfi/231/transforms.scm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/lib/srfi/231/transforms.scm b/lib/srfi/231/transforms.scm index 422c9f66..eac0b29f 100644 --- a/lib/srfi/231/transforms.scm +++ b/lib/srfi/231/transforms.scm @@ -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)))