suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix problem with _list-struct

Browse Source 
Repairs a mistake in d747f8f806.
This commit is contained in:
Matthew Flatt 2015-02-17 16:00:18 -07:00
parent b37eab0621
commit a40afcd782
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
racket/collects/ffi/unsafe.rkt
View File

@ -1327,7 +1327,7 @@
type . types) type . types)
(let* ([types (cons type types)] (let* ([types (cons type types)]
[stype (make-cstruct-type types #f alignment)] [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)]) [len (length types)])
(make-ctype stype (make-ctype stype
(lambda (vals) (lambda (vals)