mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-16 16:50:21 +02:00
Code Activity

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

Browse source 
* struct.c (s_scm_struct_vtable_p): Corrected docstring.
This commit is contained in:
Stefan Jahn 2001-11-05 21:12:33 +00:00
parent 8f99e3f38b
commit 0233bfc11b
2 changed files with 6 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/ChangeLog
View file

@ -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> 2001-11-04 Stefan Jahn <stefan@lkcc.org>
* Makefile.am (libguile_la_LIBADD): Added $(THREAD_LIBS_LOCAL) * Makefile.am (libguile_la_LIBADD): Added $(THREAD_LIBS_LOCAL)

4
libguile/struct.c
View file

@ -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_DEFINE (scm_struct_p, "struct?", 1, 0, 0,
(SCM x), (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}.") "@code{#f}.")
#define FUNC_NAME s_scm_struct_p #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_DEFINE (scm_struct_vtable_p, "struct-vtable?", 1, 0, 0,
(SCM x), (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 #define FUNC_NAME s_scm_struct_vtable_p
{ {
SCM layout; SCM layout;