diff options
author | Gary Houston <ghouston@arglist.com> | 1997-03-15 18:12:17 +0000 |
---|---|---|
committer | Gary Houston <ghouston@arglist.com> | 1997-03-15 18:12:17 +0000 |
commit | 81e2a2357c5fea762cf73e2c6f179257f3c7203f (patch) | |
tree | f6681e62021267fd10d5d94371618b44c11e2566 | |
parent | a574455a13b6702c818ef58f706f68e3533d8640 (diff) | |
download | guile-81e2a2357c5fea762cf73e2c6f179257f3c7203f.tar.gz |
* boot-9.scm (scm-error): deleted, reimplemented in C.
-rw-r--r-- | ice-9/ChangeLog | 4 | ||||
-rw-r--r-- | ice-9/boot-9.scm | 3 |
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.) |