/[guile]/guile/guile-core/libguile/properties.c
ViewVC logotype

Diff of /guile/guile-core/libguile/properties.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.9 by mvo, Sat Apr 5 19:10:22 2003 UTC revision 1.10 by kryde, Mon Jul 28 23:29:17 2003 UTC
# Line 49  SCM_DEFINE (scm_primitive_make_property, Line 49  SCM_DEFINE (scm_primitive_make_property,
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;
# Line 86  SCM_DEFINE (scm_primitive_property_ref, Line 87  SCM_DEFINE (scm_primitive_property_ref,
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;

Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26