From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 6 Mar 1991 05:04:37 +0000 (+0000)
Subject: Change an instance of `error:bad-range-argument' to
X-Git-Tag: 20090517-FFI~10880
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=d712e3b83031305028e32c2adc2d84271bb9e459;p=mit-scheme.git

Change an instance of `error:bad-range-argument' to
`error:divide-by-zero'.
---

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))