From d712e3b83031305028e32c2adc2d84271bb9e459 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 6 Mar 1991 05:04:37 +0000
Subject: [PATCH] Change an instance of `error:bad-range-argument' to
 `error:divide-by-zero'.

---
 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 71855c6e8..002057820 100644
--- a/v7/src/runtime/arith.scm
+++ b/v7/src/runtime/arith.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/arith.scm,v 1.17 1991/02/15 18:04:30 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/arith.scm,v 1.18 1991/03/06 05:04:37 cph Exp $
 
 Copyright (c) 1989-91 Massachusetts Institute of Technology
 
@@ -945,7 +945,7 @@ MIT in each case. |#
 		 ((flo:zero? x)
 		  (if (flo:positive? y)
 		      x
-		      (error:bad-range-argument y 'EXPT)))
+		      (error:divide-by-zero 'EXPT (list x y))))
 		 ((and (flo:negative? x)
 		       (not (flo:integer? y)))
 		  (error:bad-range-argument x 'EXPT))
-- 
2.25.1