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

ffi/unsafe: unbreak

Browse Source
This commit is contained in:
Matthew Flatt 2013-02-14 17:27:23 -07:00
parent ccabbaa36e
commit a96b093d97
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

@ -674,7 +674,7 @@
#,(or output-expr res))) #,(or output-expr res)))
#`(begin0 #`(begin0
(ffi #,@ffi-args) (ffi #,@ffi-args)
#,@post)))))] (let* (#,@post) (void)))))))]
;; if there is a string 'ffi-name property, use it as a name ;; if there is a string 'ffi-name property, use it as a name
[body (let ([n (cond [(syntax-property stx 'ffi-name) [body (let ([n (cond [(syntax-property stx 'ffi-name)
=> syntax->datum] => syntax->datum]