mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-14 15:40:19 +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

8
libguile/procprop.c
View file

@ -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}.")