Fix incredibly stupid think-o in previous change.

diff --git a/v7/src/runtime/arith.scm b/v7/src/runtime/arith.scm
index e93ea276a779420d54795579aae7884e5fa74e20..c4ac23a017dbc0d87ae68eba442f6c730cb0b637 100644 (file)
--- a/v7/src/runtime/arith.scm
+++ b/v7/src/runtime/arith.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: arith.scm,v 1.37 1997/04/28 07:10:20 cph Exp $
+$Id: arith.scm,v 1.38 1997/05/02 05:32:17 cph Exp $
 
 Copyright (c) 1989-97 Massachusetts Institute of Technology
 
@@ -809,7 +809,7 @@ MIT in each case. |#
 
 (define (ratio->flonum n d)
   (let ((n>0
-        (lambda (n)
+        (lambda (n d)
           (let ((k (int:- (integer-length-in-bits n)
                           (integer-length-in-bits d)))
                 (p flo:significand-digits-base-2))
@@ -859,8 +859,8 @@ MIT in each case. |#
                   (else
                    (finish (integer-shift-left n (int:negate e)) e)))))))
     (cond ((fix:zero? n) flo:0)
-         ((int:positive? n) (n>0 n d))
-         (else (flo:negate (n>0 (int:negate n) d))))))
+         ((int:positive? n) (n>0 n))
+         (else (flo:negate (n>0 (int:negate n)))))))
 \f
 (define (flo:significand-digits radix)
   (cond ((int:= radix 10)