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

Fix the fix to compound pair optimimzations.

Browse Source 
Previous version could drop code on the ground in some cases.
This commit is contained in:
Vincent St-Amour 2015-11-03 14:35:32 -06:00
parent 8f32aad3ee
commit 207a12fa23
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
typed-racket-lib/typed-racket/optimizer/pair.rkt
View File

@ -137,9 +137,8 @@
[(tc-result1: t) t])]
[res #'e.arg])
([accessor (in-list (reverse (syntax->list #'e.alt)))])
#:break (not t)
(cond
[(subtype t (-pair Univ Univ)) ; safe to optimize this one layer
[(and t (subtype t (-pair Univ Univ))) ; safe to optimize this one layer
(syntax-parse accessor
[op:pair-op
(log-pair-opt)