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), |
59 |
"@deffnx primitive procedure-properties obj\n" |
"@deffnx {Scheme Procedure} procedure-properties obj\n" |
60 |
"Return @var{obj}'s property list.") |
"Return @var{obj}'s property list.") |
61 |
#define FUNC_NAME s_scm_object_properties |
#define FUNC_NAME s_scm_object_properties |
62 |
{ |
{ |
67 |
|
|
68 |
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, |
69 |
(SCM obj, SCM alist), |
(SCM obj, SCM alist), |
70 |
"@deffnx primitive set-procedure-properties! obj alist\n" |
"@deffnx {Scheme Procedure} set-procedure-properties! obj alist\n" |
71 |
"Set @var{obj}'s property list to @var{alist}.") |
"Set @var{obj}'s property list to @var{alist}.") |
72 |
#define FUNC_NAME s_scm_set_object_properties_x |
#define FUNC_NAME s_scm_set_object_properties_x |
73 |
{ |
{ |
79 |
|
|
80 |
SCM_DEFINE (scm_object_property, "object-property", 2, 0, 0, |
SCM_DEFINE (scm_object_property, "object-property", 2, 0, 0, |
81 |
(SCM obj, SCM key), |
(SCM obj, SCM key), |
82 |
"@deffnx primitive procedure-property obj key\n" |
"@deffnx {Scheme Procedure} procedure-property obj key\n" |
83 |
"Return the property of @var{obj} with name @var{key}.") |
"Return the property of @var{obj} with name @var{key}.") |
84 |
#define FUNC_NAME s_scm_object_property |
#define FUNC_NAME s_scm_object_property |
85 |
{ |
{ |
91 |
|
|
92 |
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, |
93 |
(SCM obj, SCM key, SCM value), |
(SCM obj, SCM key, SCM value), |
94 |
"@deffnx primitive set-procedure-property! obj key value\n" |
"@deffnx {Scheme Procedure} set-procedure-property! obj key value\n" |
95 |
"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" |
96 |
"to @var{value}.") |
"to @var{value}.") |
97 |
#define FUNC_NAME s_scm_set_object_property_x |
#define FUNC_NAME s_scm_set_object_property_x |