Parent Directory | Revision Log | Patch
revision 1.202 by dirk, Thu Sep 18 20:18:17 2003 UTC | revision 1.203 by dirk, Thu Sep 18 20:55:40 2003 UTC | |
---|---|---|
# | Line 76 | Line 76 |
76 | #define SCM_I_NUMTAG(x) \ | #define SCM_I_NUMTAG(x) \ |
77 | (SCM_INUMP(x) ? SCM_I_NUMTAG_INUM \ | (SCM_INUMP(x) ? SCM_I_NUMTAG_INUM \ |
78 | : (SCM_IMP(x) ? SCM_I_NUMTAG_NOTNUM \ | : (SCM_IMP(x) ? SCM_I_NUMTAG_NOTNUM \ |
79 | : (((0xfcff & SCM_CELL_TYPE (x)) == scm_tc7_smob) ? SCM_TYP16(x) \ | : (((0xfcff & SCM_CELL_TYPE (x)) == scm_tc7_number) ? SCM_TYP16(x) \ |
80 | : SCM_I_NUMTAG_NOTNUM))) | : SCM_I_NUMTAG_NOTNUM))) |
81 | */ | */ |
82 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |