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

Avoid double coercion.

Browse Source
This commit is contained in:
Vincent St-Amour 2015-11-12 16:01:21 -06:00
parent b88b4a8829
commit fb3dee24db
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -83,7 +83,7 @@
(loop (mark-as-non-float new-o)
(stx-cdr cs)))
;; we've hit floats, can start coercing
(n-ary->binary this-syntax unsafe (cons #`(real->double-flonum #,o) cs)))))
(n-ary->binary this-syntax unsafe (cons #`(real->double-flonum #,(or o-nf o)) cs)))))
;; a+bi / c+di, names for real and imag parts of result -> one let-values binding clause
(define (unbox-one-complex-/ a b c d res-real res-imag)