Eliminate unused variable from typo.

diff --git a/src/runtime/floenv.scm b/src/runtime/floenv.scm
index 3fbb396b35af08015a96bbfb57d3a9f66e8c4765..78cfb0dc58de3eb481826d22e645d95c79167e5b 100644 (file)
--- a/src/runtime/floenv.scm
+++ b/src/runtime/floenv.scm
@@ -372,22 +372,21 @@ USA.
 (define flo:+inf.0)
 (define flo:-inf.0)
 (define (initialize-flonum-infinities!)
-  (let ((zero (lambda () (identity-procedure ))))
-    (if (flo:have-trap-enable/disable?)
-       (begin
-         (set! flo:+inf.0
-               (named-lambda (flo:+inf.0)
-                 (flo:with-exceptions-untrapped (flo:exception:divide-by-zero)
-                   (lambda ()
-                     (flo:/ +1. 0.)))))
-         (set! flo:-inf.0
-               (named-lambda (flo:-inf.0)
-                 (flo:with-exceptions-untrapped (flo:exception:divide-by-zero)
-                   (lambda ()
-                     (flo:/ -1. 0.)))))
-         unspecific)
-       ;; This works on macOS.  YMMV.
-       (begin
-         (set! flo:+inf.0 (named-lambda (flo:+inf.0) (flo:/ +1. 0.)))
-         (set! flo:-inf.0 (named-lambda (flo:-inf.0) (flo:/ -1. 0.)))
-         unspecific))))
\ No newline at end of file
+  (if (flo:have-trap-enable/disable?)
+      (begin
+       (set! flo:+inf.0
+             (named-lambda (flo:+inf.0)
+               (flo:with-exceptions-untrapped (flo:exception:divide-by-zero)
+                                              (lambda ()
+                                                (flo:/ +1. 0.)))))
+       (set! flo:-inf.0
+             (named-lambda (flo:-inf.0)
+               (flo:with-exceptions-untrapped (flo:exception:divide-by-zero)
+                                              (lambda ()
+                                                (flo:/ -1. 0.)))))
+       unspecific)
+      ;; This works on macOS.  YMMV.
+      (begin
+       (set! flo:+inf.0 (named-lambda (flo:+inf.0) (flo:/ +1. 0.)))
+       (set! flo:-inf.0 (named-lambda (flo:-inf.0) (flo:/ -1. 0.)))
+       unspecific)))
\ No newline at end of file