Fix parsing of maybe-optimize result.

Merge to 5.3.2.
2013-01-11 17:46:55 -05:00 · 2013-01-11 17:46:55 -05:00 · 1a678bd5de
commit 1a678bd5de
parent 2a1f70264c
1 changed files with 1 additions and 1 deletions
--- a/collects/typed-racket/core.rkt
+++ b/collects/typed-racket/core.rkt
@ -94,7 +94,7 @@
     (tc-setup
      stx #'form 'top-level body2 void tc-toplevel-form before type
      (with-syntax*
-       ([optimized-body (car (maybe-optimize #`(#,body2)))])
+       ([(optimized-body . _) (maybe-optimize #`(#,body2))])
       (syntax-parse body2
         ;; any of these do not produce an expression to be printed
         [(head:invis-kw . _) (arm #'optimized-body)]