~ chicken-core (chicken-5) b0767946f670eb4d1e7149373192085855f43c7b
commit b0767946f670eb4d1e7149373192085855f43c7b Author: felix <felix@call-with-current-continuation.org> AuthorDate: Mon Aug 11 09:49:02 2025 +0200 Commit: felix <felix@call-with-current-continuation.org> CommitDate: Mon Aug 11 09:49:02 2025 +0200 description handlers for complex vectors with ,d command diff --git a/csi.scm b/csi.scm index e3c95d2e..84abdd0f 100644 --- a/csi.scm +++ b/csi.scm @@ -552,7 +552,9 @@ EOF (u64vector "vector of unsigned 64-bit words" u64vector-length u64vector-ref) (s64vector "vector of signed 64-bit words" s64vector-length s64vector-ref) (f32vector "vector of 32-bit floats" f32vector-length f32vector-ref) - (f64vector "vector of 64-bit floats" f64vector-length f64vector-ref) ) ) + (f64vector "vector of 64-bit floats" f64vector-length f64vector-ref) + (c64vector "vector of 32-bit complex numbers" c64vector-length c64vector-ref) + (c128vector "vector of 64-bit complex numbers" c128vector-length c128vector-ref) ) ) (define (circular-list? x) (let lp ((x x) (lag x))Trap