56 |
|
|
57 |
SCM_DEFINE (scm_object_properties, "object-properties", 1, 0, 0, |
SCM_DEFINE (scm_object_properties, "object-properties", 1, 0, 0, |
58 |
(SCM obj), |
(SCM obj), |
|
"@deffnx {Scheme Procedure} procedure-properties obj\n" |
|
59 |
"Return @var{obj}'s property list.") |
"Return @var{obj}'s property list.") |
60 |
#define FUNC_NAME s_scm_object_properties |
#define FUNC_NAME s_scm_object_properties |
61 |
{ |
{ |
66 |
|
|
67 |
SCM_DEFINE (scm_set_object_properties_x, "set-object-properties!", 2, 0, 0, |
SCM_DEFINE (scm_set_object_properties_x, "set-object-properties!", 2, 0, 0, |
68 |
(SCM obj, SCM alist), |
(SCM obj, SCM alist), |
|
"@deffnx {Scheme Procedure} set-procedure-properties! obj alist\n" |
|
69 |
"Set @var{obj}'s property list to @var{alist}.") |
"Set @var{obj}'s property list to @var{alist}.") |
70 |
#define FUNC_NAME s_scm_set_object_properties_x |
#define FUNC_NAME s_scm_set_object_properties_x |
71 |
{ |
{ |
77 |
|
|
78 |
SCM_DEFINE (scm_object_property, "object-property", 2, 0, 0, |
SCM_DEFINE (scm_object_property, "object-property", 2, 0, 0, |
79 |
(SCM obj, SCM key), |
(SCM obj, SCM key), |
|
"@deffnx {Scheme Procedure} procedure-property obj key\n" |
|
80 |
"Return the property of @var{obj} with name @var{key}.") |
"Return the property of @var{obj} with name @var{key}.") |
81 |
#define FUNC_NAME s_scm_object_property |
#define FUNC_NAME s_scm_object_property |
82 |
{ |
{ |
88 |
|
|
89 |
SCM_DEFINE (scm_set_object_property_x, "set-object-property!", 3, 0, 0, |
SCM_DEFINE (scm_set_object_property_x, "set-object-property!", 3, 0, 0, |
90 |
(SCM obj, SCM key, SCM value), |
(SCM obj, SCM key, SCM value), |
|
"@deffnx {Scheme Procedure} set-procedure-property! obj key value\n" |
|
91 |
"In @var{obj}'s property list, set the property named @var{key}\n" |
"In @var{obj}'s property list, set the property named @var{key}\n" |
92 |
"to @var{value}.") |
"to @var{value}.") |
93 |
#define FUNC_NAME s_scm_set_object_property_x |
#define FUNC_NAME s_scm_set_object_property_x |