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 d1bf8b200db20285f2afa9df20c162cc8c78fa9b..bdd395fff8ccd1265184d7ad1d9d47da2458e34f 100644 (file)
--- 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 80d074ee318fca832bd43ee2260e12bac1b9a0dd..2786138a64d559658e4ce7511b229a0f73fbcf5a 100644 (file)
--- 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 ccc798afb541fe991748acb741503a90e94bea24..1813fde7ddc334d8fb0da7cbd626ca24c47d1665 100644 (file)
--- 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 7e9f053d10d0827adcdcc6755476e61fbdd120f3..a31cb57cd83d106e3cadcb31ca6e6dadeb13689f 100644 (file)
--- 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)