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

fix optional argument of _list-cstruct

Browse Source
This commit is contained in:
Matthew Flatt 2010-09-10 07:55:58 -06:00
parent 6ac15688b2
commit 5a833ffc57
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/ffi/unsafe.rkt
View File

@ -1143,7 +1143,7 @@
;; 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 2] . types) (define* (_list-struct #:alignment [alignment #f] . types)
(let ([stype (make-cstruct-type types #f alignment)] (let ([stype (make-cstruct-type types #f alignment)]
[offsets (compute-offsets types)] [offsets (compute-offsets types)]
[len (length types)]) [len (length types)])