48 |
SCM_DEFINE (scm_map_free_list, "map-free-list", 0, 0, 0, |
SCM_DEFINE (scm_map_free_list, "map-free-list", 0, 0, 0, |
49 |
(), |
(), |
50 |
"DEPRECATED\n") |
"DEPRECATED\n") |
51 |
#define FUNC_NAME s_scm_map_free_list |
#define FUNC_NAME "s_scm_map_free_list" |
52 |
{ |
{ |
53 |
scm_c_issue_deprecation_warning ("map-free-list has been removed from GUILE. Doing nothing\n"); |
scm_c_issue_deprecation_warning ("map-free-list has been removed from GUILE. Doing nothing\n"); |
54 |
return SCM_UNSPECIFIED; |
return SCM_UNSPECIFIED; |
55 |
} |
} |
56 |
|
#undef FUNC_NAME |
57 |
|
|
58 |
SCM_DEFINE (scm_gc_set_debug_check_freelist_x, "gc-set-debug-check-freelist!", 1, 0, 0, |
SCM_DEFINE (scm_gc_set_debug_check_freelist_x, "gc-set-debug-check-freelist!", 1, 0, 0, |
59 |
(SCM flag), |
(SCM flag), |
60 |
"DEPRECATED.\n") |
"DEPRECATED.\n") |
61 |
#define FUNC_NAME s_scm_gc_set_debug_check_freelist_x |
#define FUNC_NAME "s_scm_gc_set_debug_check_freelist_x" |
62 |
{ |
{ |
63 |
scm_c_issue_deprecation_warning ("gc-set-debug-check-freelist! has been removed from GUILE. Doing nothing\n"); |
scm_c_issue_deprecation_warning ("gc-set-debug-check-freelist! has been removed from GUILE. Doing nothing\n"); |
64 |
return SCM_UNSPECIFIED; |
return SCM_UNSPECIFIED; |