cleanup

Author: bksaiki

private/ffi.rkt

@@ -146,17 +146,6 @@
     (mpfr-subnormalize r t (mpfr-rounding-mode)))
   r)
 
-(define mpfr-sum-fun
-  (get-mpfr-fun 'mpfr_sum (_fun _mpfr-pointer (_list i _mpfr-pointer) _ulong _rnd_t -> _int)))
-
-(define (mpfr-sum xs)
-  (define r (bf 0))
-  (define t (mpfr-sum-fun r xs (length xs) (mpfr-rounding-mode)))
-  (mpfr-check-range r 0 (mpfr-rounding-mode))
-  (when (mpfr-subnormalize?)
-    (mpfr-subnormalize r t (mpfr-rounding-mode)))
-  r)
-
 (define (mpfr-set x)
   (define v (if (bigfloat? x) (bfcopy x) (bf x)))
   (mpfr-check-range v 0 (mpfr-rounding-mode))

private/gfl.rkt

@@ -299,8 +299,8 @@
     [(list) 1.bf]
     [(list x) (bfcopy x)]
     [(list x y rest ...)
-     (for/fold ([sum (mpfr-mul x y)]) ([z (in-list rest)])
-       (mpfr-mul sum z))]))
+     (for/fold ([prod (mpfr-mul x y)]) ([z (in-list rest)])
+       (mpfr-mul prod z))]))
 
 (define (mpfrv/ x . xs)
   (match xs

private/mpfr.rkt

@@ -11,7 +11,6 @@
          mpfr-lgamma
          mpfr-jn
          mpfr-yn
-         mpfr-sum
          mpfr-set
          mpfr-set-ebounds!)