Fix coercions from single-floats to floats.

Found using random testing.

original commit: ca63915693b706f0ead17f114ffe76a087a11c63
This commit is contained in:
Vincent St-Amour 2013-04-02 10:16:33 -04:00
parent 82f1f48ad2
commit 6584c83187

View File

@ -79,7 +79,7 @@
;; of the exact 0 problem, but since float-opt-expr checks whether the
;; surrounding expressing is of type Float and not just Real, this is safe
(pattern e:real-expr
#:with opt #'(exact->inexact e)))
#:with opt #'(real->double-flonum e)))
(define (log-float-real-missed-opt stx irritants)
(log-missed-optimization