summaryrefslogtreecommitdiff
path: root/libguile/goops.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/goops.c')
-rw-r--r--libguile/goops.c17
1 files changed, 9 insertions, 8 deletions
diff --git a/libguile/goops.c b/libguile/goops.c
index a85f4975c..4ea756a10 100644
--- a/libguile/goops.c
+++ b/libguile/goops.c
@@ -1047,7 +1047,7 @@ slot_definition_using_name (SCM class, SCM slot_name)
}
static SCM
-get_slot_value (SCM class, SCM obj, SCM slotdef)
+get_slot_value (SCM class SCM_UNUSED, SCM obj, SCM slotdef)
{
SCM access = SCM_CDDR (slotdef);
/* Two cases here:
@@ -1084,7 +1084,7 @@ get_slot_value_using_name (SCM class, SCM obj, SCM slot_name)
}
static SCM
-set_slot_value (SCM class, SCM obj, SCM slotdef, SCM value)
+set_slot_value (SCM class SCM_UNUSED, SCM obj, SCM slotdef, SCM value)
{
SCM access = SCM_CDDR (slotdef);
/* Two cases here:
@@ -1125,7 +1125,7 @@ set_slot_value_using_name (SCM class, SCM obj, SCM slot_name, SCM value)
}
static SCM
-test_slot_existence (SCM class, SCM obj, SCM slot_name)
+test_slot_existence (SCM class SCM_UNUSED, SCM obj, SCM slot_name)
{
register SCM l;
@@ -1518,7 +1518,7 @@ purgatory (void *args)
}
void
-scm_change_object_class (SCM obj, SCM old_class, SCM new_class)
+scm_change_object_class (SCM obj, SCM old_class SCM_UNUSED, SCM new_class)
{
if (!burnin (obj))
scm_internal_dynamic_wind (go_to_hell, purgatory, go_to_heaven,
@@ -1868,7 +1868,7 @@ SCM_VARIABLE_INIT (var_compute_applicable_methods, "compute-applicable-methods",
SCM_SYNTAX (s_atslot_ref, "@slot-ref", scm_makmmacro, scm_m_atslot_ref);
SCM
-scm_m_atslot_ref (SCM xorig, SCM env)
+scm_m_atslot_ref (SCM xorig, SCM env SCM_UNUSED)
#define FUNC_NAME s_atslot_ref
{
SCM x = SCM_CDR (xorig);
@@ -1882,7 +1882,7 @@ scm_m_atslot_ref (SCM xorig, SCM env)
SCM_SYNTAX (s_atslot_set_x, "@slot-set!", scm_makmmacro, scm_m_atslot_set_x);
SCM
-scm_m_atslot_set_x (SCM xorig, SCM env)
+scm_m_atslot_set_x (SCM xorig, SCM env SCM_UNUSED)
#define FUNC_NAME s_atslot_set_x
{
SCM x = SCM_CDR (xorig);
@@ -2413,7 +2413,8 @@ create_port_classes (void)
}
static SCM
-make_struct_class (void *closure, SCM key, SCM data, SCM prev)
+make_struct_class (void *closure SCM_UNUSED, SCM key SCM_UNUSED,
+ SCM data, SCM prev SCM_UNUSED)
{
if (SCM_NFALSEP (SCM_STRUCT_TABLE_NAME (data)))
SCM_SET_STRUCT_TABLE_CLASS (data,
@@ -2499,7 +2500,7 @@ SCM_KEYWORD (k_accessor, "accessor");
SCM_KEYWORD (k_getter, "getter");
static SCM
-default_setter (SCM obj, SCM c)
+default_setter (SCM obj SCM_UNUSED, SCM c SCM_UNUSED)
{
scm_misc_error ("slot-set!", "read-only slot", SCM_EOL);
return 0;