diff options
author | Martin Grabmüller <mgrabmue@cs.tu-berlin.de> | 2001-04-03 13:19:05 +0000 |
---|---|---|
committer | Martin Grabmüller <mgrabmue@cs.tu-berlin.de> | 2001-04-03 13:19:05 +0000 |
commit | 1e6808ea204cef454e41af1e2f309100ab99e9e1 (patch) | |
tree | fb93c3098d7dd4e7af175dbde98b5dc41dcd7c0d /libguile/objprop.c | |
parent | ae9f3a15826847d280f69b179c2e09776892a9c6 (diff) | |
download | guile-1e6808ea204cef454e41af1e2f309100ab99e9e1.tar.gz |
Correct, update, improve and clean up a lot of docstrings in order to make
the documentation much more consistent.
Diffstat (limited to 'libguile/objprop.c')
-rw-r--r-- | libguile/objprop.c | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/libguile/objprop.c b/libguile/objprop.c index 17f935e94..41a766c1a 100644 --- a/libguile/objprop.c +++ b/libguile/objprop.c @@ -68,14 +68,14 @@ SCM_DEFINE (scm_object_properties, "object-properties", 1, 0, 0, SCM_DEFINE (scm_set_object_properties_x, "set-object-properties!", 2, 0, 0, - (SCM obj, SCM plist), + (SCM obj, SCM alist), "@deffnx primitive set-procedure-properties! obj alist\n" "Set @var{obj}'s property list to @var{alist}.") #define FUNC_NAME s_scm_set_object_properties_x { - SCM handle = scm_hashq_create_handle_x (scm_object_whash, obj, plist); - SCM_SETCDR (handle, plist); - return plist; + SCM handle = scm_hashq_create_handle_x (scm_object_whash, obj, alist); + SCM_SETCDR (handle, alist); + return alist; } #undef FUNC_NAME @@ -92,10 +92,10 @@ SCM_DEFINE (scm_object_property, "object-property", 2, 0, 0, #undef FUNC_NAME SCM_DEFINE (scm_set_object_property_x, "set-object-property!", 3, 0, 0, - (SCM obj, SCM key, SCM val), + (SCM obj, SCM key, SCM value), "@deffnx primitive set-procedure-property! obj key value\n" - "In @var{obj}'s property list, set the property named @var{key} to\n" - "@var{value}.") + "In @var{obj}'s property list, set the property named @var{key}\n" + "to @var{value}.") #define FUNC_NAME s_scm_set_object_property_x { SCM h; @@ -104,14 +104,14 @@ SCM_DEFINE (scm_set_object_property_x, "set-object-property!", 3, 0, 0, SCM_DEFER_INTS; assoc = scm_assq (key, SCM_CDR (h)); if (SCM_NIMP (assoc)) - SCM_SETCDR (assoc, val); + SCM_SETCDR (assoc, value); else { - assoc = scm_acons (key, val, SCM_CDR (h)); + assoc = scm_acons (key, value, SCM_CDR (h)); SCM_SETCDR (h, assoc); } SCM_ALLOW_INTS; - return val; + return value; } #undef FUNC_NAME |