From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 11 Sep 1990 22:33:57 +0000 (+0000)
Subject: Add new procedures to signal wrong type and bad range errors.
X-Git-Tag: 20090517-FFI~11203
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=deafd0ebb75c429f3d8e04122a3a8dbce2d57016;p=mit-scheme.git

Add new procedures to signal wrong type and bad range errors.
---

diff --git a/v7/src/runtime/dragon4.scm b/v7/src/runtime/dragon4.scm
index d1bf8b200..bdd395fff 100644
--- a/v7/src/runtime/dragon4.scm
+++ b/v7/src/runtime/dragon4.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/dragon4.scm,v 1.3 1990/01/15 21:27:25 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/dragon4.scm,v 1.4 1990/09/11 22:33:57 cph Exp $
 
 Copyright (c) 1989, 1990 Massachusetts Institute of Technology
 
@@ -204,4 +204,5 @@ MIT in each case. |#
 		      ((normal) (values k r s m- m+ k round-up?))
 		      ((absolute) (cutoff-adjust cutoff))
 		      ((relative) (cutoff-adjust (+ k cutoff)))
-		      (else (wrong-type 'DRAGON4 cutoff-mode)))))))))))))
\ No newline at end of file
+		      (else
+		       (error:illegal-datum cutoff-mode 'DRAGON4)))))))))))))
\ No newline at end of file
diff --git a/v7/src/runtime/numpar.scm b/v7/src/runtime/numpar.scm
index 80d074ee3..2786138a6 100644
--- a/v7/src/runtime/numpar.scm
+++ b/v7/src/runtime/numpar.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/numpar.scm,v 14.5 1989/10/28 06:47:35 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/numpar.scm,v 14.6 1990/09/11 22:33:26 cph Rel $
 
-Copyright (c) 1989 Massachusetts Institute of Technology
+Copyright (c) 1989, 1990 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -41,7 +41,7 @@ MIT in each case. |#
 	     10
 	     (begin
 	       (if (not (memv radix-default '(2 8 10 16)))
-		   (bad-range 'STRING->NUMBER radix-default))
+		   (error:datum-out-of-range radix-default 'STRING->NUMBER))
 	       radix-default))))
     (with-values (lambda () (parse-prefix (string->list string)))
       (lambda (chars radix-prefix exactness)
diff --git a/v7/src/runtime/runtime.pkg b/v7/src/runtime/runtime.pkg
index ccc798afb..1813fde7d 100644
--- a/v7/src/runtime/runtime.pkg
+++ b/v7/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/runtime.pkg,v 14.74 1990/09/11 20:45:03 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/runtime.pkg,v 14.75 1990/09/11 22:33:37 cph Exp $
 
 Copyright (c) 1988, 1989, 1990 Massachusetts Institute of Technology
 
@@ -1128,8 +1128,6 @@ MIT in each case. |#
 	  truncate
 	  truncate->exact
 	  zero?)
-  (export (runtime number-parser)
-	  bad-range)
   (initialization (initialize-package!)))
 
 (define-package (runtime number interface)
diff --git a/v8/src/runtime/runtime.pkg b/v8/src/runtime/runtime.pkg
index 7e9f053d1..a31cb57cd 100644
--- a/v8/src/runtime/runtime.pkg
+++ b/v8/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/runtime.pkg,v 14.74 1990/09/11 20:45:03 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/runtime.pkg,v 14.75 1990/09/11 22:33:37 cph Exp $
 
 Copyright (c) 1988, 1989, 1990 Massachusetts Institute of Technology
 
@@ -1128,8 +1128,6 @@ MIT in each case. |#
 	  truncate
 	  truncate->exact
 	  zero?)
-  (export (runtime number-parser)
-	  bad-range)
   (initialization (initialize-package!)))
 
 (define-package (runtime number interface)