mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-05-29 08:20:20 +02:00
*** empty log message ***
This commit is contained in:
parent
f032b8a8a9
commit
d94c6eeb75
1 changed files with 15 additions and 0 deletions
|
@ -1,5 +1,20 @@
|
||||||
Sun Jun 22 19:12:58 1997 Jim Blandy <jimb@floss.red-bean.com>
|
Sun Jun 22 19:12:58 1997 Jim Blandy <jimb@floss.red-bean.com>
|
||||||
|
|
||||||
|
* root.c: Establish a reliable catch-all handler for the new root.
|
||||||
|
After all the Scheme handler function might signal an error too,
|
||||||
|
and we don't want to lose that.
|
||||||
|
(cwdr_inner_body): Renamed from cwdr_body.
|
||||||
|
(cwdr_outer_body): New function, to establish the user's handler,
|
||||||
|
and pass control to cwdr_inner_body.
|
||||||
|
(cwdr): Establish the reliable catch-all handler here, and pass
|
||||||
|
control to cwdr_outer_body.
|
||||||
|
(struct cwdr_body_data): New field, handler, to allow cwdr to pass
|
||||||
|
the user's handler through to cwdr_outer_body.
|
||||||
|
* throw.c (scm_handle_by_message): Move guts into....
|
||||||
|
(handler_message): New static function.
|
||||||
|
(scm_handle_by_message_noexit): New function.
|
||||||
|
* throw.h (scm_handle_by_message_noexit): New prototype.
|
||||||
|
|
||||||
* __scm.h: (SCM_FENCE): New macro: optimizer will not move code
|
* __scm.h: (SCM_FENCE): New macro: optimizer will not move code
|
||||||
across this. Only works on GCC. Otherwise, we hope for the best.
|
across this. Only works on GCC. Otherwise, we hope for the best.
|
||||||
(SCM_DEFER_INTS, SCM_ALLOW_INTS): Use FENCE appropriately. I have
|
(SCM_DEFER_INTS, SCM_ALLOW_INTS): Use FENCE appropriately. I have
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue