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

Minor fix to number matching in complex opts.

Browse Source
This commit is contained in:
Eric Dobson 2013-09-17 09:45:22 -07:00
parent fda570e915
commit 73c0310369
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
pkgs/typed-racket-pkgs/typed-racket-lib/typed-racket/optimizer/float-complex.rkt
View File

@ -317,15 +317,15 @@
;; else, do the unboxing here ;; else, do the unboxing here
;; we can unbox literals right away ;; we can unbox literals right away
(pattern (quote n*) (pattern (quote n*:number)
#:do [(define n (syntax->datum #'n*))] #:do [(define n (syntax->datum #'n*))]
#:when (and (number? n) (not (equal? (imag-part n) 0))) #:when (not (equal? (imag-part n) 0))
#:with (real-binding imag-binding) (binding-names) #:with (real-binding imag-binding) (binding-names)
#:do [(log-unboxing-opt "unboxed literal")] #:do [(log-unboxing-opt "unboxed literal")]
#:with (bindings ...) #:with (bindings ...)
#`(((real-binding) '#,(exact->inexact (real-part n))) #`(((real-binding) '#,(exact->inexact (real-part n)))
((imag-binding) '#,(exact->inexact (imag-part n))))) ((imag-binding) '#,(exact->inexact (imag-part n)))))
(pattern (quote n*) (pattern (quote n*:number)
#:do [(define n (syntax->datum #'n*))] #:do [(define n (syntax->datum #'n*))]
#:when (real? n) #:when (real? n)
#:with real-binding (generate-temporary "unboxed-real-") #:with real-binding (generate-temporary "unboxed-real-")