mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-24 12:20:20 +02:00
Code Activity

*.[ch]: Replace GUILE_PROC w/ SCM_DEFINE.

Browse source
This commit is contained in:
Greg J. Badros 2000-01-05 19:05:23 +00:00
parent fb76446506
commit a1ec69163d
63 changed files with 582 additions and 582 deletions
Download patch file Download diff file Expand all files Collapse all files

12
libguile/gc.c
View file

@ -243,7 +243,7 @@ which_seg (SCM cell)
}
GUILE_PROC (scm_map_free_list, "map-free-list", 0, 0, 0,
SCM_DEFINE (scm_map_free_list, "map-free-list", 0, 0, 0,
(),
"")
#define FUNC_NAME s_scm_map_free_list
@ -298,7 +298,7 @@ scm_check_freelist ()
static int scm_debug_check_freelist = 0;
GUILE_PROC (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,
(SCM flag),
"")
#define FUNC_NAME s_scm_gc_set_debug_check_freelist_x
@ -342,7 +342,7 @@ scm_debug_newcell (void)
/* {Scheme Interface to GC}
*/
GUILE_PROC (scm_gc_stats, "gc-stats", 0, 0, 0,
SCM_DEFINE (scm_gc_stats, "gc-stats", 0, 0, 0,
(),
"Returns an association list of statistics about Guile's current use of storage. ")
#define FUNC_NAME s_scm_gc_stats
@ -407,7 +407,7 @@ scm_gc_end ()
}
GUILE_PROC (scm_object_address, "object-address", 1, 0, 0,
SCM_DEFINE (scm_object_address, "object-address", 1, 0, 0,
(SCM obj),
"Return an integer that for the lifetime of @var{obj} is uniquely
returned by this function for @var{obj}")
@ -418,7 +418,7 @@ returned by this function for @var{obj}")
#undef FUNC_NAME
GUILE_PROC(scm_gc, "gc", 0, 0, 0,
SCM_DEFINE(scm_gc, "gc", 0, 0, 0,
(),
"Scans all of SCM objects and reclaims for further use those that are
no longer accessible.")
@ -1754,7 +1754,7 @@ alloc_some_heap (int ncells, SCM *freelistp)
GUILE_PROC (scm_unhash_name, "unhash-name", 1, 0, 0,
SCM_DEFINE (scm_unhash_name, "unhash-name", 1, 0, 0,
(SCM name),
"")
#define FUNC_NAME s_scm_unhash_name