diff options
author | Greg J. Badros <gjb@cs.washington.edu> | 2000-01-05 19:05:23 +0000 |
---|---|---|
committer | Greg J. Badros <gjb@cs.washington.edu> | 2000-01-05 19:05:23 +0000 |
commit | a1ec69163dd2e55e5d2b03a164513aa4a0d5943c (patch) | |
tree | 99489194c03fa41397c77e84b3f8660ffef1ed30 /libguile/procprop.c | |
parent | fb764465068f84e3ab047c45792ffc3026e5505a (diff) | |
download | guile-a1ec69163dd2e55e5d2b03a164513aa4a0d5943c.tar.gz |
*.[ch]: Replace GUILE_PROC w/ SCM_DEFINE.
Diffstat (limited to 'libguile/procprop.c')
-rw-r--r-- | libguile/procprop.c | 8 |
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}.") |