2001-11-05 Stefan Jahn <stefan@lkcc.org>

        * struct.c (s_scm_struct_vtable_p): Corrected docstring.

diff --git a/libguile/ChangeLog b/libguile/ChangeLog
index e0c7f99..e8ccfea 100644 (file)
--- a/libguile/ChangeLog
+++ b/libguile/ChangeLog
@@ -1,3 +1,7 @@
+2001-11-05  Stefan Jahn  <stefan@lkcc.org>
+
+       * struct.c (s_scm_struct_vtable_p): Corrected docstring.
+
 2001-11-04  Stefan Jahn  <stefan@lkcc.org>
 
        * Makefile.am (libguile_la_LIBADD): Added $(THREAD_LIBS_LOCAL)

diff --git a/libguile/struct.c b/libguile/struct.c
index 37cc742..27eeceb 100644 (file)
--- a/libguile/struct.c
+++ b/libguile/struct.c
@@ -240,7 +240,7 @@ scm_struct_init (SCM handle, SCM layout, scm_t_bits * mem, int tail_elts, SCM in
 
 SCM_DEFINE (scm_struct_p, "struct?", 1, 0, 0, 
             (SCM x),
-           "Return @code{#t} iff @var{obj} is a structure object, else\n"
+           "Return @code{#t} iff @var{x} is a structure object, else\n"
            "@code{#f}.")
 #define FUNC_NAME s_scm_struct_p
 {
@@ -250,7 +250,7 @@ SCM_DEFINE (scm_struct_p, "struct?", 1, 0, 0,
 
 SCM_DEFINE (scm_struct_vtable_p, "struct-vtable?", 1, 0, 0, 
             (SCM x),
-           "Return @code{#t} iff obj is a vtable structure.")
+           "Return @code{#t} iff @var{x} is a vtable structure.")
 #define FUNC_NAME s_scm_struct_vtable_p
 {
   SCM layout;