suzanne.soy/typed-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.

original commit: 1a678bd5de65aac6e806f6cf220cf0c7d441eeb8
This commit is contained in:
Sam Tobin-Hochstadt 2013-01-11 17:46:55 -05:00
parent 657652d8b9
commit 4ec778616e
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)]