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

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

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

revision 1.108 by dirk, Thu Sep 18 20:55:40 2003 UTC revision 1.109 by dirk, Sun Sep 21 07:54:23 2003 UTC
# Line 468  typedef unsigned long scm_t_bits; Line 468  typedef unsigned long scm_t_bits;
468    
469  /* Definitions for tc16: */  /* Definitions for tc16: */
470  #define SCM_TYP16(x)            (0xffff & SCM_CELL_TYPE (x))  #define SCM_TYP16(x)            (0xffff & SCM_CELL_TYPE (x))
 #define SCM_TYP16S(x)           (0xfeff & SCM_CELL_TYPE (x))  
   
471  #define SCM_TYP16_PREDICATE(tag, x) (!SCM_IMP (x) && SCM_TYP16 (x) == (tag))  #define SCM_TYP16_PREDICATE(tag, x) (!SCM_IMP (x) && SCM_TYP16 (x) == (tag))
472    
473    
474  /* Here is the first smob subtype.  */  /* Here is the first smob subtype.  */
475    
476  /* scm_tc_free_cell is the 0th smob type.  We place this in free cells to tell  /* scm_tc_free_cell is the 0th smob type.  We place this in free cells to tell

Legend:
Removed from v.1.108  
changed lines
  Added in v.1.109

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