* boot-9.scm (%%handle-system-error key): set args and rest to

the empty list if they are #f.
Initialize out-of-range as an error key.

diff --git a/ice-9/ChangeLog b/ice-9/ChangeLog
index 3a8438e..3921efe 100644 (file)
--- a/ice-9/ChangeLog
+++ b/ice-9/ChangeLog
@@ -1,3 +1,9 @@
+Sun Sep 15 03:55:35 1996  Gary Houston  <ghouston@actrix.gen.nz>
+
+       * boot-9.scm (%%handle-system-error key): set args and rest to
+       the empty list if they are #f.
+       Initialize out-of-range as an error key.
+
 Sat Sep 14 03:41:15 1996  Gary Houston  <ghouston@actrix.gen.nz>
 
        * PLUGIN/REQ: remove the "ice-9 lgh" line which causes a cycle.

diff --git a/ice-9/boot-9.scm b/ice-9/boot-9.scm
index a2e569b..da1a3dc 100644 (file)
--- a/ice-9/boot-9.scm
+++ b/ice-9/boot-9.scm
@@ -674,8 +674,10 @@
   (cond ((= (length arg-list) 4)
         (letrec ((subr (car arg-list))
                  (message (cadr arg-list))
-                 (args (caddr arg-list))
-                 (rest (cadddr arg-list))
+                 (args (or (caddr arg-list)
+                           '()))
+                 (rest (or (cadddr arg-list)
+                           '()))
                  (cep (current-error-port))
                  (fill-message
                   (lambda (message args)
@@ -728,7 +730,7 @@
           (apply error fixed-args)))))
 
 ;; associate error symbols with the default handler.
-(let loop ((keys '(system-error numerical-overflow)))
+(let loop ((keys '(system-error numerical-overflow out-of-range)))
   (cond ((not (null? keys))
         (set-symbol-property! (car keys)
                               'throw-handler-default