From fb3dee24db03a70196b745a6f5cd3eb67eddbed7 Mon Sep 17 00:00:00 2001 From: Vincent St-Amour Date: Thu, 12 Nov 2015 16:01:21 -0600 Subject: [PATCH] Avoid double coercion. --- typed-racket-lib/typed-racket/optimizer/float-complex.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/typed-racket-lib/typed-racket/optimizer/float-complex.rkt b/typed-racket-lib/typed-racket/optimizer/float-complex.rkt index 8a670e31..cec315c6 100644 --- a/typed-racket-lib/typed-racket/optimizer/float-complex.rkt +++ b/typed-racket-lib/typed-racket/optimizer/float-complex.rkt @@ -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)