From 5a833ffc57efe366d78f8b1e0739a265a5ef0bc3 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Fri, 10 Sep 2010 07:55:58 -0600 Subject: [PATCH] fix optional argument of _list-cstruct --- collects/ffi/unsafe.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/ffi/unsafe.rkt b/collects/ffi/unsafe.rkt index f320bf8e08..141f766e8c 100644 --- a/collects/ffi/unsafe.rkt +++ b/collects/ffi/unsafe.rkt @@ -1143,7 +1143,7 @@ ;; Simple structs: call this with a list of types, and get a type that marshals ;; C structs to/from Scheme lists. -(define* (_list-struct #:alignment [alignment 2] . types) +(define* (_list-struct #:alignment [alignment #f] . types) (let ([stype (make-cstruct-type types #f alignment)] [offsets (compute-offsets types)] [len (length types)])