mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-06-14 07:30:32 +02:00
2001-11-05 Stefan Jahn <stefan@lkcc.org>
* struct.c (s_scm_struct_vtable_p): Corrected docstring.
This commit is contained in:
parent
8f99e3f38b
commit
0233bfc11b
2 changed files with 6 additions and 2 deletions
|
@ -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;
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue