diff options
Diffstat (limited to 'libguile/gc-freelist.c')
-rw-r--r-- | libguile/gc-freelist.c | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/libguile/gc-freelist.c b/libguile/gc-freelist.c index cebea1079..e9863695e 100644 --- a/libguile/gc-freelist.c +++ b/libguile/gc-freelist.c @@ -48,16 +48,17 @@ is unset before allocation. --hwn SCM_DEFINE (scm_map_free_list, "map-free-list", 0, 0, 0, (), "DEPRECATED\n") -#define FUNC_NAME s_scm_map_free_list +#define FUNC_NAME "s_scm_map_free_list" { scm_c_issue_deprecation_warning ("map-free-list has been removed from GUILE. Doing nothing\n"); return SCM_UNSPECIFIED; } +#undef FUNC_NAME SCM_DEFINE (scm_gc_set_debug_check_freelist_x, "gc-set-debug-check-freelist!", 1, 0, 0, (SCM flag), "DEPRECATED.\n") -#define FUNC_NAME s_scm_gc_set_debug_check_freelist_x +#define FUNC_NAME "s_scm_gc_set_debug_check_freelist_x" { scm_c_issue_deprecation_warning ("gc-set-debug-check-freelist! has been removed from GUILE. Doing nothing\n"); return SCM_UNSPECIFIED; |