diff options
| author | Jim Blandy <jimb@red-bean.com> | 1996-12-23 04:37:03 +0000 |
|---|---|---|
| committer | Jim Blandy <jimb@red-bean.com> | 1996-12-23 04:37:03 +0000 |
| commit | ef290276acb80e87f9148ce34ec792a2bd301d8c (patch) | |
| tree | 10a0b82c084a9aa8eb6c67865d007692ccf88fc3 /libguile/root.h | |
| parent | ce2a6727dc0c04603f224bb645b63c9529d49d9c (diff) | |
| download | guile-ef290276acb80e87f9148ce34ec792a2bd301d8c.tar.gz | |
* * gc.c (scm_protect_object, scm_unprotect_object): New functions.
Their prototypes were already present in gc.h, but they weren't
implemented.
(scm_init_storage): Initialize scm_protects.
* root.c (scm_protects): New element of scm_sys_protects.
Diffstat (limited to 'libguile/root.h')
| -rw-r--r-- | libguile/root.h | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/libguile/root.h b/libguile/root.h index 37857d47d..6d6ab2b25 100644 --- a/libguile/root.h +++ b/libguile/root.h @@ -67,11 +67,12 @@ #define scm_object_whash scm_sys_protects[12] #define scm_permobjs scm_sys_protects[13] #define scm_asyncs scm_sys_protects[14] +#define scm_protects scm_sys_protects[15] #ifdef DEBUG_EXTENSIONS -#define scm_source_whash scm_sys_protects[15] -#define SCM_NUM_PROTECTS 16 +#define scm_source_whash scm_sys_protects[16] +#define SCM_NUM_PROTECTS 17 #else -#define SCM_NUM_PROTECTS 15 +#define SCM_NUM_PROTECTS 16 #endif extern SCM scm_sys_protects[]; |