diff options
-rw-r--r-- | libguile/gc.h | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/libguile/gc.h b/libguile/gc.h index 921b7f5bd..88ab4cc03 100644 --- a/libguile/gc.h +++ b/libguile/gc.h @@ -49,6 +49,8 @@ #include "libguile/__scm.h" +#include "libguile/hooks.h" + typedef struct scm_cell @@ -265,6 +267,14 @@ extern unsigned long scm_cells_allocated; extern long scm_mallocated; extern unsigned long scm_mtrigger; +extern SCM scm_after_gc_hook; + +extern scm_c_hook_t scm_before_gc_c_hook; +extern scm_c_hook_t scm_before_mark_c_hook; +extern scm_c_hook_t scm_before_sweep_c_hook; +extern scm_c_hook_t scm_after_sweep_c_hook; +extern scm_c_hook_t scm_after_gc_c_hook; + #if defined (GUILE_DEBUG) || defined (GUILE_DEBUG_FREELIST) extern SCM scm_map_free_list (void); extern SCM scm_free_list_length (void); |