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

Cleanup some syntax->list uses in the optimizer.

Browse Source 
original commit: cea9472b318fa3e0bf608d58732a89aa107a6c0d
This commit is contained in:
Eric Dobson 2013-05-25 10:48:38 -07:00
parent 611b61ca36
commit c88ec2b5ec
2 changed files with 5 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/typed-racket/optimizer/fixnum.rkt
View File

@ -157,9 +157,7 @@
#:with opt
(begin (log-optimization "fixnum bounded expr" fixnum-opt-msg this-syntax)
(add-disappeared-use #'op)
(let ([post-opt (syntax->list #'(n1.opt n2.opt ns.opt ...))])
(n-ary->binary #'op.unsafe
(car post-opt) (cadr post-opt) (cddr post-opt)))))
(n-ary->binary #'op.unsafe #'n1.opt #'n2.opt (syntax->list #'(ns.opt ...)))))
(pattern (#%plain-app (~var op (fixnum-op potentially-bounded-nonzero-fixnum-ops))
n1:fixnum-expr n2:nonzero-fixnum-expr)
#:when (check-if-safe this-syntax)

12
collects/typed-racket/optimizer/float-complex.rkt
View File

@ -225,8 +225,8 @@
#`(c1.bindings ... c2.bindings ... cs.bindings ... ...
;; we want to bind the intermediate results to reuse them
;; the final results are bound to real-binding and imag-binding
#,@(let loop ([a (car (syntax->list #'reals))]
[b (car (syntax->list #'imags))]
#,@(let loop ([a (stx-car #'reals)]
[b (stx-car #'imags)]
[e1 (cdr (syntax->list #'reals))]
[e2 (cdr (syntax->list #'imags))]
[rs (append (stx-map (lambda (x) (unboxed-gensym "unboxed-real-"))
@ -377,9 +377,7 @@
(pattern v:id
#:with unboxed-info (dict-ref unboxed-vars-table #'v #f)
#:when (syntax->datum #'unboxed-info)
#:with real-binding (car (syntax->list #'unboxed-info))
#:with imag-binding (cadr (syntax->list #'unboxed-info))
#:with orig-binding (caddr (syntax->list #'unboxed-info))
#:with (real-binding imag-binding orig-binding) #'unboxed-info
#:with (bindings ...)
(begin (log-optimization "leave var unboxed"
complex-unboxing-opt-msg
@ -636,9 +634,7 @@
#:with unboxed-info (dict-ref unboxed-vars-table #'v #f)
#:when (syntax->datum #'unboxed-info)
#:when (subtypeof? #'v -FloatComplex)
#:with real-binding (car (syntax->list #'unboxed-info))
#:with imag-binding (cadr (syntax->list #'unboxed-info))
#:with orig-binding (caddr (syntax->list #'unboxed-info))
#:with (real-binding imag-binding orig-binding) #'unboxed-info
#:with (bindings ...) #'()
;; unboxed variable used in a boxed fashion, we have to box
#:with opt