From a40afcd782e7cc3c5bb744fc993ec46395b3abf9 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Tue, 17 Feb 2015 16:00:18 -0700
Subject: [PATCH] fix problem with `_list-struct`

Repairs a mistake in d747f8f806.
---
 racket/collects/ffi/unsafe.rkt | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/racket/collects/ffi/unsafe.rkt b/racket/collects/ffi/unsafe.rkt
index 284d5e42d4..bb410f776f 100644
--- a/racket/collects/ffi/unsafe.rkt
+++ b/racket/collects/ffi/unsafe.rkt
@@ -1327,7 +1327,7 @@
                        type . types)
   (let* ([types   (cons type types)]
          [stype   (make-cstruct-type types #f alignment)]
-         [offsets (compute-offsets types alignment)]
+         [offsets (compute-offsets types alignment (map (lambda (x) #f) types))]
          [len     (length types)])
     (make-ctype stype
       (lambda (vals)