mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-09 13:30:26 +02:00
Code Activity

Replaced SCM_INUMP with SCM_I_INUMP and SCM_INUM with SCM_I_INUM

Browse source 
throughout.
This commit is contained in:
Marius Vollmer 2005-03-29 18:04:38 +00:00
parent 835c5e9619
commit ba48957bd5
1 changed files with 8 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

16
srfi/srfi-60.c
View file

@ -36,7 +36,7 @@ SCM_DEFINE (scm_srfi60_log2_binary_factors, "log2-binary-factors", 1, 0, 0,
{ {
SCM ret = SCM_EOL; SCM ret = SCM_EOL;
if (SCM_INUMP (n)) if (SCM_I_INUMP (n))
{ {
long nn = SCM_I_INUM (n); long nn = SCM_I_INUM (n);
if (nn == 0) if (nn == 0)
@ -77,9 +77,9 @@ SCM_DEFINE (scm_srfi60_copy_bit, "copy-bit", 3, 0, 0,
ii = scm_to_ulong (index); ii = scm_to_ulong (index);
bb = scm_to_bool (bit); bb = scm_to_bool (bit);
if (SCM_INUMP (n)) if (SCM_I_INUMP (n))
{ {
long nn = SCM_INUM (n); long nn = SCM_I_INUM (n);
/* can't set high bit ii==SCM_LONG_BIT-1, that would change the sign, /* can't set high bit ii==SCM_LONG_BIT-1, that would change the sign,
which is not what's wanted */ which is not what's wanted */
@ -146,9 +146,9 @@ SCM_DEFINE (scm_srfi60_rotate_bit_field, "rotate-bit-field", 4, 0, 0,
cc = scm_to_ulong (scm_modulo (count, scm_difference (end, start))); cc = scm_to_ulong (scm_modulo (count, scm_difference (end, start)));
if (SCM_INUMP (n)) if (SCM_I_INUMP (n))
{ {
long nn = SCM_INUM (n); long nn = SCM_I_INUM (n);
if (ee <= SCM_LONG_BIT-1) if (ee <= SCM_LONG_BIT-1)
{ {
@ -234,9 +234,9 @@ SCM_DEFINE (scm_srfi60_reverse_bit_field, "reverse-bit-field", 3, 0, 0,
long swaps = (ee - ss) / 2; /* number of swaps */ long swaps = (ee - ss) / 2; /* number of swaps */
SCM b; SCM b;
if (SCM_INUMP (n)) if (SCM_I_INUMP (n))
{ {
long nn = SCM_INUM (n); long nn = SCM_I_INUM (n);
if (ee <= SCM_LONG_BIT-1) if (ee <= SCM_LONG_BIT-1)
{ {
@ -327,7 +327,7 @@ SCM_DEFINE (scm_srfi60_integer_to_list, "integer->list", 1, 1, 0,
len = scm_integer_length (n); len = scm_integer_length (n);
ll = scm_to_ulong (len); ll = scm_to_ulong (len);
if (SCM_INUMP (n)) if (SCM_I_INUMP (n))
{ {
long nn = SCM_I_INUM (n); long nn = SCM_I_INUM (n);
for (i = 0; i < ll; i++) for (i = 0; i < ll; i++)