* boot-9.scm (scm-error): deleted, reimplemented in C.

diff --git a/ice-9/ChangeLog b/ice-9/ChangeLog
index 8aeed39..7e87ae9 100644 (file)
--- a/ice-9/ChangeLog
+++ b/ice-9/ChangeLog
@@ -1,3 +1,7 @@
+Thu Mar 13 00:13:41 1997  Gary Houston  <ghouston@actrix.gen.nz>
+
+       * boot-9.scm (scm-error): deleted, reimplemented in C.
+
 Mon Mar 10 15:48:31 1997  Mikael Djurfeldt  <mdj@mdj.nada.kth.se>
 
        * boot-9.scm (process-define-module): Modified to handle both

diff --git a/ice-9/boot-9.scm b/ice-9/boot-9.scm
index 6243736..eae0ec2 100644 (file)
--- a/ice-9/boot-9.scm
+++ b/ice-9/boot-9.scm
@@ -556,9 +556,6 @@
                  (cdr rest))
            (scm-error 'misc-error #f msg args #f)))))
 
-(define (scm-error key subr message args rest)
-  (throw key subr message args rest))
-
 ;; bad-throw is the hook that is called upon a throw to a an unhandled
 ;; key (unless the throw has four arguments, in which case
 ;; it's usually interpreted as an error throw.)