/[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.165 by dirk, Sun Jun 30 22:03:43 2002 UTC revision 1.166 by xxhanwen, Sat Jul 20 14:08:33 2002 UTC
# Line 65  static SCM scm_divbigbig (SCM_BIGDIG *x, Line 65  static SCM scm_divbigbig (SCM_BIGDIG *x,
65  static SCM scm_divbigint (SCM x, long z, int sgn, int mode);  static SCM scm_divbigint (SCM x, long z, int sgn, int mode);
66    
67    
68  #define SCM_SWAP(x,y) do { SCM __t = x; x = y; y = __t; } while (0)  #define SCM_SWAP(x, y) do { SCM __t = x; x = y; y = __t; } while (0)
69    
70    
71  /* FLOBUFLEN is the maximum number of characters neccessary for the  /* FLOBUFLEN is the maximum number of characters neccessary for the
# Line 1257  SCM_DEFINE (scm_integer_expt, "integer-e Line 1257  SCM_DEFINE (scm_integer_expt, "integer-e
1257          SCM_WRONG_TYPE_ARG (2, k);          SCM_WRONG_TYPE_ARG (2, k);
1258      }      }
1259    else    else
1260      SCM_VALIDATE_ULONG_COPY (2,k,i2);      SCM_VALIDATE_ULONG_COPY (2, k, i2);
1261    if (i2 < 0)    if (i2 < 0)
1262      {      {
1263        i2 = -i2;        i2 = -i2;
# Line 1350  SCM_DEFINE (scm_bit_extract, "bit-extrac Line 1350  SCM_DEFINE (scm_bit_extract, "bit-extrac
1350  #define FUNC_NAME s_scm_bit_extract  #define FUNC_NAME s_scm_bit_extract
1351  {  {
1352    unsigned long int istart, iend;    unsigned long int istart, iend;
1353    SCM_VALIDATE_INUM_MIN_COPY (2,start,0,istart);    SCM_VALIDATE_INUM_MIN_COPY (2, start,0, istart);
1354    SCM_VALIDATE_INUM_MIN_COPY (3, end, 0, iend);    SCM_VALIDATE_INUM_MIN_COPY (3, end, 0, iend);
1355    SCM_ASSERT_RANGE (3, end, (iend >= istart));    SCM_ASSERT_RANGE (3, end, (iend >= istart));
1356    
# Line 2992  SCM_DEFINE (scm_string_to_number, "strin Line 2992  SCM_DEFINE (scm_string_to_number, "strin
2992    SCM answer;    SCM answer;
2993    int base;    int base;
2994    SCM_VALIDATE_STRING (1, string);    SCM_VALIDATE_STRING (1, string);
2995    SCM_VALIDATE_INUM_MIN_DEF_COPY (2,radix,2,10,base);    SCM_VALIDATE_INUM_MIN_DEF_COPY (2, radix,2,10, base);
2996    answer = scm_i_mem2number (SCM_STRING_CHARS (string),    answer = scm_i_mem2number (SCM_STRING_CHARS (string),
2997                             SCM_STRING_LENGTH (string),                             SCM_STRING_LENGTH (string),
2998                             base);                             base);

Legend:
Removed from v.1.165  
changed lines
  Added in v.1.166

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