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

(scm_frame_free): New.

Browse source
This commit is contained in:
Marius Vollmer 2004-08-10 13:35:28 +00:00
parent 3b9ee0a4f8
commit 6d5649b7b8
2 changed files with 8 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

6
libguile/dynwind.c
View file

@ -234,6 +234,12 @@ scm_frame_rewind_handler_with_scm (void (*proc) (SCM), SCM data,
proc (data);
}
void
scm_frame_free (void *mem)
{
scm_frame_unwind_handler (free, mem, SCM_F_WIND_EXPLICITLY);
}
#ifdef GUILE_DEBUG
SCM_DEFINE (scm_wind_chain, "wind-chain", 0, 0, 0,
(),

2
libguile/dynwind.h
View file

@ -63,6 +63,8 @@ SCM_API void scm_frame_unwind_handler_with_scm (void (*func) (SCM), SCM data,
SCM_API void scm_frame_rewind_handler_with_scm (void (*func) (SCM), SCM data,
scm_t_wind_flags);
SCM_API void scm_frame_free (void *mem);
#ifdef GUILE_DEBUG
SCM_API SCM scm_wind_chain (void);
#endif /*GUILE_DEBUG*/