/[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.3 by ttn, Thu Mar 14 05:26:15 2002 UTC revision 1.18.4.4 by ossau, Fri Mar 15 09:23:19 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),
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  {  {
# Line 67  SCM_DEFINE (scm_object_properties, "obje Line 67  SCM_DEFINE (scm_object_properties, "obje
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  {  {
# Line 79  SCM_DEFINE (scm_set_object_properties_x, Line 79  SCM_DEFINE (scm_set_object_properties_x,
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  {  {
# Line 91  SCM_DEFINE (scm_object_property, "object Line 91  SCM_DEFINE (scm_object_property, "object
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

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

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