240 |
|
|
241 |
SCM_DEFINE (scm_struct_p, "struct?", 1, 0, 0, |
SCM_DEFINE (scm_struct_p, "struct?", 1, 0, 0, |
242 |
(SCM x), |
(SCM x), |
243 |
"Return @code{#t} iff @var{obj} is a structure object, else\n" |
"Return @code{#t} iff @var{x} is a structure object, else\n" |
244 |
"@code{#f}.") |
"@code{#f}.") |
245 |
#define FUNC_NAME s_scm_struct_p |
#define FUNC_NAME s_scm_struct_p |
246 |
{ |
{ |
250 |
|
|
251 |
SCM_DEFINE (scm_struct_vtable_p, "struct-vtable?", 1, 0, 0, |
SCM_DEFINE (scm_struct_vtable_p, "struct-vtable?", 1, 0, 0, |
252 |
(SCM x), |
(SCM x), |
253 |
"Return @code{#t} iff obj is a vtable structure.") |
"Return @code{#t} iff @var{x} is a vtable structure.") |
254 |
#define FUNC_NAME s_scm_struct_vtable_p |
#define FUNC_NAME s_scm_struct_vtable_p |
255 |
{ |
{ |
256 |
SCM layout; |
SCM layout; |