49 |
|
|
50 |
SCM_DEFINE (scm_primitive_property_ref, "primitive-property-ref", 2, 0, 0, |
SCM_DEFINE (scm_primitive_property_ref, "primitive-property-ref", 2, 0, 0, |
51 |
(SCM prop, SCM obj), |
(SCM prop, SCM obj), |
52 |
"Return the property @var{prop} of @var{obj}. When no value\n" |
"Return the property @var{prop} of @var{obj}.\n" |
53 |
"has yet been associated with @var{prop} and @var{obj}, call\n" |
"\n" |
54 |
"@var{not-found-proc} instead (see @code{primitive-make-property})\n" |
"When no value has yet been associated with @var{prop} and\n" |
55 |
"and use its return value. That value is also associated with\n" |
"@var{obj}, the @var{not-found-proc} from @var{prop} is used. A\n" |
56 |
"@var{obj} via @code{primitive-property-set!}. When\n" |
"call @code{(@var{not-found-proc} @var{prop} @var{obj})} is made\n" |
57 |
"@var{not-found-proc} is @code{#f}, use @code{#f} as the\n" |
"and the result set as the property value. If\n" |
58 |
"default value of @var{prop}.") |
"@var{not-found-proc} is @code{#f} then @code{#f} is the\n" |
59 |
|
"property value.") |
60 |
#define FUNC_NAME s_scm_primitive_property_ref |
#define FUNC_NAME s_scm_primitive_property_ref |
61 |
{ |
{ |
62 |
SCM h; |
SCM h; |
87 |
|
|
88 |
SCM_DEFINE (scm_primitive_property_set_x, "primitive-property-set!", 3, 0, 0, |
SCM_DEFINE (scm_primitive_property_set_x, "primitive-property-set!", 3, 0, 0, |
89 |
(SCM prop, SCM obj, SCM val), |
(SCM prop, SCM obj, SCM val), |
90 |
"Associate @var{code} with @var{prop} and @var{obj}.") |
"Set the property @var{prop} of @var{obj} to @var{val}.") |
91 |
#define FUNC_NAME s_scm_primitive_property_set_x |
#define FUNC_NAME s_scm_primitive_property_set_x |
92 |
{ |
{ |
93 |
SCM h, assoc; |
SCM h, assoc; |