dmbcs/guile
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* throw.c (mark_lazy_catch, free_lazy_catch): Removed.

Browse source 
1. mark_lazy_catch didn't mark the smob.
2. Both functions above have standard variants:
(lazy_catch_funs): Changed mark_lazy_catch --> scm_mark0,
free_lazy_catch --> scm_free0.
This commit is contained in:
Mikael Djurfeldt 1997-02-09 16:21:49 +00:00
commit 3197e30d2e
2 changed files with 9 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

8
libguile/ChangeLog
View file

@ -1,3 +1,11 @@
Sun Feb 9 18:04:41 1997 Mikael Djurfeldt <mdj@kenneth>
* throw.c (mark_lazy_catch, free_lazy_catch): Removed.
1. mark_lazy_catch didn't mark the smob.
2. Both functions above have standard variants:
(lazy_catch_funs): Changed mark_lazy_catch --> scm_mark0,
free_lazy_catch --> scm_free0.
Fri Feb 7 17:30:26 1997 Jim Blandy <jimb@floss.cyclic.com>
* throw.c (scm_internal_lazy_catch): New function.

15
libguile/throw.c
View file

@ -321,19 +321,6 @@ struct lazy_catch {
void *handler_data;
};
static SCM
mark_lazy_catch (SCM closure)
{
return SCM_BOOL_F;
}
static scm_sizet
free_lazy_catch (SCM closure)
{
/* These live on the stack. */
return 0;
}
/* Strictly speaking, we could just pass a zero for our print
function, because we don't need to print them. They should never
appear in normal data structures, only in the wind list. However,
@ -352,7 +339,7 @@ print_lazy_catch (SCM closure, SCM port, scm_print_state *pstate)
}
static scm_smobfuns lazy_catch_funs = {
mark_lazy_catch, free_lazy_catch, print_lazy_catch, 0
scm_mark0, scm_free0, print_lazy_catch, 0
};