/[guile]/guile/guile-core/libguile/struct.c
ViewVC logotype

Diff of /guile/guile-core/libguile/struct.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.81.2.4 by ossau, Fri Mar 15 09:23:19 2002 UTC revision 1.81.2.5 by ossau, Fri Mar 15 10:33:37 2002 UTC
# Line 240  scm_struct_init (SCM handle, SCM layout, Line 240  scm_struct_init (SCM handle, SCM layout,
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  {  {
# Line 250  SCM_DEFINE (scm_struct_p, "struct?", 1, Line 250  SCM_DEFINE (scm_struct_p, "struct?", 1,
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;

Legend:
Removed from v.1.81.2.4  
changed lines
  Added in v.1.81.2.5

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26