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

Added optimization for first, second and co when possible.

Browse Source 
original commit: 2c4d6fbb015e7433fbd8aec68867134988f367bf
This commit is contained in:
Vincent St-Amour 2010-10-08 16:32:10 -04:00
parent 19784fffe5
commit 428e96980b
1 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
collects/typed-scheme/optimizer/pair.rkt
View File

@ -110,7 +110,17 @@
(cddaar #'cdr #'cdr #'car #'car)
(cddadr #'cdr #'cdr #'car #'cdr)
(cdddar #'cdr #'cdr #'cdr #'car)
(cddddr #'cdr #'cdr #'cdr #'cdr))
(cddddr #'cdr #'cdr #'cdr #'cdr)
(first #'car)
(second #'car #'cdr)
(third #'car #'cdr #'cdr)
(fourth #'car #'cdr #'cdr #'cdr)
(fifth #'car #'cdr #'cdr #'cdr #'cdr)
(sixth #'car #'cdr #'cdr #'cdr #'cdr #'cdr)
(seventh #'car #'cdr #'cdr #'cdr #'cdr #'cdr #'cdr)
(eighth #'car #'cdr #'cdr #'cdr #'cdr #'cdr #'cdr #'cdr)
(ninth #'car #'cdr #'cdr #'cdr #'cdr #'cdr #'cdr #'cdr #'cdr)
(tenth #'car #'cdr #'cdr #'cdr #'cdr #'cdr #'cdr #'cdr #'cdr #'cdr))
(define-syntax-class pair-derived-opt-expr
#:commit