/[guile]/guile/guile-core/libguile/smob.h
ViewVC logotype

Diff of /guile/guile-core/libguile/smob.h

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

revision 1.46 by dirk, Fri Mar 1 00:19:20 2002 UTC revision 1.47 by xxhanwen, Sat Jul 20 14:08:34 2002 UTC
# Line 115  do { \ Line 115  do { \
115  #define SCM_SMOB_DESCRIPTOR(x)          (scm_smobs[SCM_SMOBNUM (x)])  #define SCM_SMOB_DESCRIPTOR(x)          (scm_smobs[SCM_SMOBNUM (x)])
116  #define SCM_SMOB_APPLICABLE_P(x)        (SCM_SMOB_DESCRIPTOR (x).apply)  #define SCM_SMOB_APPLICABLE_P(x)        (SCM_SMOB_DESCRIPTOR (x).apply)
117  #define SCM_SMOB_APPLY_0(x)             (SCM_SMOB_DESCRIPTOR (x).apply_0 (x))  #define SCM_SMOB_APPLY_0(x)             (SCM_SMOB_DESCRIPTOR (x).apply_0 (x))
118  #define SCM_SMOB_APPLY_1(x,a1)          (SCM_SMOB_DESCRIPTOR (x).apply_1 (x, (a1)))  #define SCM_SMOB_APPLY_1(x, a1)         (SCM_SMOB_DESCRIPTOR (x).apply_1 (x, (a1)))
119  #define SCM_SMOB_APPLY_2(x,a1,a2)       (SCM_SMOB_DESCRIPTOR (x).apply_2 (x, (a1), (a2)))  #define SCM_SMOB_APPLY_2(x, a1, a2)     (SCM_SMOB_DESCRIPTOR (x).apply_2 (x, (a1), (a2)))
120  #define SCM_SMOB_APPLY_3(x,a1,a2,rst)   (SCM_SMOB_DESCRIPTOR (x).apply_3 (x, (a1), (a2), (rst)))  #define SCM_SMOB_APPLY_3(x, a1, a2, rst)        (SCM_SMOB_DESCRIPTOR (x).apply_3 (x, (a1), (a2), (rst)))
121    
122  SCM_API long scm_numsmob;  SCM_API long scm_numsmob;
123  SCM_API scm_smob_descriptor scm_smobs[];  SCM_API scm_smob_descriptor scm_smobs[];

Legend:
Removed from v.1.46  
changed lines
  Added in v.1.47

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