summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorGary Houston <ghouston@arglist.com>1997-03-15 18:12:17 +0000
committerGary Houston <ghouston@arglist.com>1997-03-15 18:12:17 +0000
commit81e2a2357c5fea762cf73e2c6f179257f3c7203f (patch)
treef6681e62021267fd10d5d94371618b44c11e2566
parenta574455a13b6702c818ef58f706f68e3533d8640 (diff)
downloadguile-81e2a2357c5fea762cf73e2c6f179257f3c7203f.tar.gz
* boot-9.scm (scm-error): deleted, reimplemented in C.
-rw-r--r--ice-9/ChangeLog4
-rw-r--r--ice-9/boot-9.scm3
2 files changed, 4 insertions, 3 deletions
diff --git a/ice-9/ChangeLog b/ice-9/ChangeLog
index 8aeed39a7..7e87ae9ba 100644
--- 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 6243736de..eae0ec2be 100644
--- 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.)