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