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

Fix parsing of maybe-optimize result.

Browse Source 
Merge to 5.3.2.
(cherry picked from commit 1a678bd5de)
This commit is contained in:
Sam Tobin-Hochstadt 2013-01-11 17:46:55 -05:00 committed by Ryan Culpepper
parent 28a3376096
commit 5e0c0f198a
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/typed-racket/core.rkt
View File

@ -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)]