fix problem with _list-struct

Repairs a mistake in d747f8f806.
2015-02-17 16:00:18 -07:00 · 2015-02-17 16:00:18 -07:00 · a40afcd782
commit a40afcd782
parent b37eab0621
1 changed files with 1 additions and 1 deletions
--- 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)