From a96b093d97f448852843bb2c0bde0c738739f4f0 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Thu, 14 Feb 2013 17:27:23 -0700
Subject: [PATCH] ffi/unsafe: unbreak

---
 collects/ffi/unsafe.rkt | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/ffi/unsafe.rkt b/collects/ffi/unsafe.rkt
index cbee2e8cac..abe3718eb8 100644
--- a/collects/ffi/unsafe.rkt
+++ b/collects/ffi/unsafe.rkt
@@ -674,7 +674,7 @@
                                        #,(or output-expr res)))
                                  #`(begin0
                                     (ffi #,@ffi-args)
-                                    #,@post)))))]
+                                    (let* (#,@post) (void)))))))]
                ;; if there is a string 'ffi-name property, use it as a name
                [body (let ([n (cond [(syntax-property stx 'ffi-name)
                                      => syntax->datum]