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

ffi/unsafe: unbreak _list-struct

Browse Source 
Broken by 0b1f96ab3d (specifically one of my changes to
Tobias's patch).
This commit is contained in:
Matthew Flatt 2013-08-27 17:29:33 -06:00
parent 3d91b6b77f
commit 0b6f24e3b5
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1316,10 +1316,10 @@
;; Simple structs: call this with a list of types, and get a type that marshals ;; Simple structs: call this with a list of types, and get a type that marshals
;; C structs to/from Scheme lists. ;; C structs to/from Scheme lists.
(define* (_list-struct #:alignment [alignment #f] type . types) (define* (_list-struct #:alignment [alignment #f] type . types)
(let ([stype (make-cstruct-type types #f alignment)] (let* ([types (cons type types)]
[offsets (compute-offsets types alignment)] [stype (make-cstruct-type types #f alignment)]
[len (add1 (length types))] [offsets (compute-offsets types alignment)]
[types (cons type types)]) [len (length types)])
(make-ctype stype (make-ctype stype
(lambda (vals) (lambda (vals)
(unless (list? vals) (unless (list? vals)