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

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

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

revision 1.18.4.4 by ossau, Fri Mar 15 09:23:19 2002 UTC revision 1.18.4.5 by ossau, Fri Mar 15 10:33:37 2002 UTC
# Line 56  Line 56 
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  {  {
# Line 67  SCM_DEFINE (scm_object_properties, "obje Line 66  SCM_DEFINE (scm_object_properties, "obje
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  {  {
# Line 79  SCM_DEFINE (scm_set_object_properties_x, Line 77  SCM_DEFINE (scm_set_object_properties_x,
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  {  {
# Line 91  SCM_DEFINE (scm_object_property, "object Line 88  SCM_DEFINE (scm_object_property, "object
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

Legend:
Removed from v.1.18.4.4  
changed lines
  Added in v.1.18.4.5

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