Re: comments on latest draft
Bradley Lucier 09 Jun 2017 17:18 UTC
On 06/09/2017 01:11 PM, Bradley Lucier wrote:
> (define fl+*-new
> (lambda (x y z)
> (if (and (flfinite? x)
> (flfinite? y))
> (if (flfinite? z)
> (flonum (+ (* x y) z))
> z)
> (fl+ (fl* x y) z))))
That should be
(define fl+*-new
(lambda (x y z)
(if (and (flfinite? x)
(flfinite? y))
(if (flfinite? z)
(let ((x (exact x))
(y (exact y))
(z (exact z)))
(flonum (+ (* x y) z)))
z)
(fl+ (fl* x y) z))))
Brad
