mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-29 08:20:20 +02:00
Code Activity

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

Browse source
This commit is contained in:
Gary Houston 1997-03-15 18:12:17 +00:00
parent a574455a13
commit 81e2a2357c
2 changed files with 4 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

4
ice-9/ChangeLog
View file

@ -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> Mon Mar 10 15:48:31 1997 Mikael Djurfeldt <mdj@mdj.nada.kth.se>
* boot-9.scm (process-define-module): Modified to handle both * boot-9.scm (process-define-module): Modified to handle both

3
ice-9/boot-9.scm
View file

@ -556,9 +556,6 @@
(cdr rest)) (cdr rest))
(scm-error 'misc-error #f msg args #f))))) (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 ;; 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 ;; key (unless the throw has four arguments, in which case
;; it's usually interpreted as an error throw.) ;; it's usually interpreted as an error throw.)