summaryrefslogtreecommitdiff
path: root/libguile/guardians.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/guardians.c')
-rw-r--r--libguile/guardians.c14
1 files changed, 10 insertions, 4 deletions
diff --git a/libguile/guardians.c b/libguile/guardians.c
index c41f048bd..b62d8088d 100644
--- a/libguile/guardians.c
+++ b/libguile/guardians.c
@@ -184,7 +184,7 @@ guardian_free (SCM ptr)
static int
-guardian_print (SCM guardian, SCM port, scm_print_state *pstate)
+guardian_print (SCM guardian, SCM port, scm_print_state *pstate SCM_UNUSED)
{
guardian_t *g = GUARDIAN (guardian);
@@ -428,7 +428,9 @@ SCM_DEFINE (scm_destroy_guardian_x, "destroy-guardian!", 1, 0, 0,
/* called before gc mark phase begins to initialise the live guardian list. */
static void *
-guardian_gc_init (void *dummy1, void *dummy2, void *dummy3)
+guardian_gc_init (void *dummy1 SCM_UNUSED,
+ void *dummy2 SCM_UNUSED,
+ void *dummy3 SCM_UNUSED)
{
greedy_guardians = sharing_guardians = NULL;
@@ -530,7 +532,9 @@ mark_and_zombify (guardian_t *g)
phases. for each marked guardian, it moves any unmarked object in
its live list (tconc) to its zombie list (tconc). */
static void *
-guardian_zombify (void *dummy1, void *dummy2, void *dummy3)
+guardian_zombify (void *dummy1 SCM_UNUSED,
+ void *dummy2 SCM_UNUSED,
+ void *dummy3 SCM_UNUSED)
{
guardian_t *last_greedy_guardian = NULL;
guardian_t *last_sharing_guardian = NULL;
@@ -588,7 +592,9 @@ guardian_zombify (void *dummy1, void *dummy2, void *dummy3)
}
static void *
-whine_about_self_centered_zombies (void *dummy1, void *dummy2, void *dummy3)
+whine_about_self_centered_zombies (void *dummy1 SCM_UNUSED,
+ void *dummy2 SCM_UNUSED,
+ void *dummy3 SCM_UNUSED)
{
if (! SCM_NULLP (SCM_CDR (self_centered_zombies)))
{