diff options
author | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 2000-04-21 23:11:51 +0000 |
---|---|---|
committer | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 2000-04-21 23:11:51 +0000 |
commit | 9b3e180c0d34ad6c833ac218e46c4ad16a0656bf (patch) | |
tree | b5b7f1ff3eef8d544c9105e796165fb0506f4925 | |
parent | 801cb5e7ceb430243ab35544db5943c2fc8ae8c5 (diff) | |
download | guile-9b3e180c0d34ad6c833ac218e46c4ad16a0656bf.tar.gz |
* gc.h: Added #include "libguile/hooks.h".
-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); |