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

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

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

revision 1.23 by dirk, Thu Jan 10 21:57:03 2002 UTC revision 1.24 by dirk, Sat Mar 9 20:15:16 2002 UTC
# Line 144  typedef struct scm_t_method { Line 144  typedef struct scm_t_method {
144    
145  #define SCM_SLOT(x, i)         (SCM_PACK (SCM_INST (x) [i]))  #define SCM_SLOT(x, i)         (SCM_PACK (SCM_INST (x) [i]))
146  #define SCM_SET_SLOT(x, i, v)  (SCM_INST (x) [i] = SCM_UNPACK (v))  #define SCM_SET_SLOT(x, i, v)  (SCM_INST (x) [i] = SCM_UNPACK (v))
147    #define SCM_INSTANCE_HASH(c, i) (SCM_INST (c) [scm_si_hashsets + (i)])
148  #define SCM_SET_HASHSET(c, i, h)  (SCM_INST (c) [scm_si_hashsets + (i)] = (h))  #define SCM_SET_HASHSET(c, i, h)  (SCM_INST (c) [scm_si_hashsets + (i)] = (h))
149    
150  #define SCM_SUBCLASSP(c1, c2)  (!SCM_FALSEP (scm_c_memq (c2, SCM_SLOT (c1, scm_si_cpl))))  #define SCM_SUBCLASSP(c1, c2)  (!SCM_FALSEP (scm_c_memq (c2, SCM_SLOT (c1, scm_si_cpl))))

Legend:
Removed from v.1.23  
changed lines
  Added in v.1.24

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