/[guile]/guile/guile-core/libguile/num2integral.i.c
ViewVC logotype

Diff of /guile/guile-core/libguile/num2integral.i.c

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

revision 1.19 by rlb, Wed Apr 16 19:43:55 2003 UTC revision 1.20 by mdj, Thu May 22 10:22:20 2003 UTC
# Line 59  NUM2INTEGRAL (SCM num, unsigned long int Line 59  NUM2INTEGRAL (SCM num, unsigned long int
59          return (ITYPE) n;          return (ITYPE) n;
60        else        else
61          {          {
62    #if SIZEOF_SCM_T_BITS > SIZEOF_ITYPE
63            /* an inum can be out of range, so check */            /* an inum can be out of range, so check */
64            if (UNSIGNED) /* n is known to be >= 0 */            if (UNSIGNED) /* n is known to be >= 0 */
65              {              {
# Line 67  NUM2INTEGRAL (SCM num, unsigned long int Line 68  NUM2INTEGRAL (SCM num, unsigned long int
68              }              }
69            else if (((ITYPE) n) != n)            else if (((ITYPE) n) != n)
70              scm_out_of_range (s_caller, num);              scm_out_of_range (s_caller, num);
71    #endif
72            return (ITYPE) n;            return (ITYPE) n;
73          }          }
74      }      }

Legend:
Removed from v.1.19  
changed lines
  Added in v.1.20

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