From dce487fa3a5f3abb279ac8c22f76313b0632f433 Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Wed, 11 Sep 2024 22:40:46 +0900 Subject: [PATCH] c64/128 default values should be complex --- lib/srfi/231/transforms.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lib/srfi/231/transforms.scm b/lib/srfi/231/transforms.scm index eac0b29f..3470a6b4 100644 --- a/lib/srfi/231/transforms.scm +++ b/lib/srfi/231/transforms.scm @@ -53,10 +53,10 @@ 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.+0.i) (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.+0.i) (define-storage-class char-storage-class (lambda (vec i) (integer->char (u32vector-ref vec i)))