summaryrefslogtreecommitdiff
path: root/libguile/procprop.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/procprop.c')
-rw-r--r--libguile/procprop.c8
1 files changed, 4 insertions, 4 deletions
diff --git a/libguile/procprop.c b/libguile/procprop.c
index e18acdc15..ed7b01007 100644
--- a/libguile/procprop.c
+++ b/libguile/procprop.c
@@ -162,7 +162,7 @@ scm_stand_in_scm_proc(SCM proc)
return answer;
}
-GUILE_PROC(scm_procedure_properties, "procedure-properties", 1, 0, 0,
+SCM_DEFINE(scm_procedure_properties, "procedure-properties", 1, 0, 0,
(SCM proc),
"Return @var{obj}'s property list.")
#define FUNC_NAME s_scm_procedure_properties
@@ -175,7 +175,7 @@ GUILE_PROC(scm_procedure_properties, "procedure-properties", 1, 0, 0,
}
#undef FUNC_NAME
-GUILE_PROC(scm_set_procedure_properties_x, "set-procedure-properties!", 2, 0, 0,
+SCM_DEFINE(scm_set_procedure_properties_x, "set-procedure-properties!", 2, 0, 0,
(SCM proc, SCM new_val),
"Set @var{obj}'s property list to @var{alist}.")
#define FUNC_NAME s_scm_set_procedure_properties_x
@@ -188,7 +188,7 @@ GUILE_PROC(scm_set_procedure_properties_x, "set-procedure-properties!", 2, 0, 0,
}
#undef FUNC_NAME
-GUILE_PROC(scm_procedure_property, "procedure-property", 2, 0, 0,
+SCM_DEFINE(scm_procedure_property, "procedure-property", 2, 0, 0,
(SCM p, SCM k),
"Return the property of @var{obj} with name @var{key}.")
#define FUNC_NAME s_scm_procedure_property
@@ -210,7 +210,7 @@ GUILE_PROC(scm_procedure_property, "procedure-property", 2, 0, 0,
}
#undef FUNC_NAME
-GUILE_PROC(scm_set_procedure_property_x, "set-procedure-property!", 3, 0, 0,
+SCM_DEFINE(scm_set_procedure_property_x, "set-procedure-property!", 3, 0, 0,
(SCM p, SCM k, SCM v),
"In @var{obj}'s property list, set the property named @var{key} to
@var{value}.")