From 456b62ba0a9311b01590ea42931afeebbda4e91f Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Sat, 3 May 1997 08:47:26 +0000 Subject: [PATCH] Fix thinko: INTEGER-ROUND was doing round-to-odd instead of round-to-even. --- v7/src/runtime/arith.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/v7/src/runtime/arith.scm b/v7/src/runtime/arith.scm index c4ac23a01..0948f678e 100644 --- a/v7/src/runtime/arith.scm +++ b/v7/src/runtime/arith.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: arith.scm,v 1.38 1997/05/02 05:32:17 cph Exp $ +$Id: arith.scm,v 1.39 1997/05/03 08:47:26 cph Exp $ Copyright (c) 1989-97 Massachusetts Institute of Technology @@ -299,7 +299,7 @@ MIT in each case. |# (2r (int:* 2 (integer-divide-remainder qr)))) (if (or (int:> 2r d) (and (int:= 2r d) - (fix:zero? (int:remainder q 2)))) + (not (fix:zero? (int:remainder q 2))))) (int:1+ q) q)))))) (if (int:negative? n) -- 2.25.1