From 91e30659912fa87cce347836793f9a3c4e08f621 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Mon, 9 Nov 2020 11:43:36 -0700 Subject: [PATCH] Chez Scheme: fix typo for flvector operation --- racket/src/ChezScheme/c/types.h | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/racket/src/ChezScheme/c/types.h b/racket/src/ChezScheme/c/types.h index 1b07c93579..865574dccf 100644 --- a/racket/src/ChezScheme/c/types.h +++ b/racket/src/ChezScheme/c/types.h @@ -268,7 +268,7 @@ typedef struct _bucket_pointer_list { #define size_closure(n) ptr_align(header_size_closure + (n)*ptr_bytes) #define size_string(n) ptr_align(header_size_string + (n)*string_char_bytes) #define size_fxvector(n) ptr_align(header_size_fxvector + (n)*ptr_bytes) -#define size_flvector(n) ptr_align(header_size_fxvector + (n)*sizeof(double)) +#define size_flvector(n) ptr_align(header_size_flvector + (n)*sizeof(double)) #define size_bytevector(n) ptr_align(header_size_bytevector + (n)) #define size_bignum(n) ptr_align(header_size_bignum + (n)*bigit_bytes) #define size_code(n) ptr_align(header_size_code + (n))