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

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

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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    

Legend:
Removed from v.1.202  
changed lines
  Added in v.1.203

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