c64/128 default values should be complex

ashinn · Sep 11, 2024 · dce487f · dce487f
1 parent 2acef43
commit dce487f
Showing 1 changed file with 2 additions and 2 deletions.
diff --git 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)))