summaryrefslogtreecommitdiff
path: root/libguile/numbers.c
diff options
context:
space:
mode:
authorGreg J. Badros <gjb@cs.washington.edu>2000-01-17 19:44:01 +0000
committerGreg J. Badros <gjb@cs.washington.edu>2000-01-17 19:44:01 +0000
commit2cd04b426f82731caf45c1dee4b8457f97c0e3f2 (patch)
tree3856e454a9c2e037227c9a9c68c06492faf81d14 /libguile/numbers.c
parent153511a74c7ff28bd4a959bc1323281c4d981521 (diff)
downloadguile-2cd04b426f82731caf45c1dee4b8457f97c0e3f2.tar.gz
* scm_validate.h: Added SCM_VALIDATE_ULONG_COPY,
SCM_VALIDATE_LONG_COPY * numbers.c: Use SCM_VALIDATE_ULONG_COPY, instead of SCM_VALIDATE_INUM_COPY to let bigger numbers be used. Rename a couple of formal arguments (and fix their uses) to make arguments match the documentation.
Diffstat (limited to 'libguile/numbers.c')
-rw-r--r--libguile/numbers.c42
1 files changed, 21 insertions, 21 deletions
diff --git a/libguile/numbers.c b/libguile/numbers.c
index 5854d692b..73793b332 100644
--- a/libguile/numbers.c
+++ b/libguile/numbers.c
@@ -533,8 +533,8 @@ Example:
return SCM_MAKINUM (-1);
return n1;
}
- SCM_VALIDATE_INUM_COPY (1,n1,i1);
- SCM_VALIDATE_INUM_COPY (2,n2,i2);
+ SCM_VALIDATE_ULONG_COPY (1,n1,i1);
+ SCM_VALIDATE_ULONG_COPY (2,n2,i2);
return SCM_LOGOP_RETURN (i1 & i2);
}
#undef FUNC_NAME
@@ -558,8 +558,8 @@ Example:
return SCM_INUM0;
return n1;
}
- SCM_VALIDATE_INUM_COPY (1,n1,i1);
- SCM_VALIDATE_INUM_COPY (2,n2,i2);
+ SCM_VALIDATE_ULONG_COPY (1,n1,i1);
+ SCM_VALIDATE_ULONG_COPY (2,n2,i2);
return SCM_LOGOP_RETURN (i1 | i2);
}
#undef FUNC_NAME
@@ -583,8 +583,8 @@ Example:
return SCM_INUM0;
return n1;
}
- SCM_VALIDATE_INUM_COPY (1,n1,i1);
- SCM_VALIDATE_INUM_COPY (2,n2,i2);
+ SCM_VALIDATE_ULONG_COPY (1,n1,i1);
+ SCM_VALIDATE_ULONG_COPY (2,n2,i2);
return SCM_LOGOP_RETURN (i1 ^ i2);
}
#undef FUNC_NAME
@@ -600,15 +600,15 @@ SCM_DEFINE (scm_logtest, "logtest", 2, 0, 0,
#define FUNC_NAME s_scm_logtest
{
int i1, i2;
- SCM_VALIDATE_INUM_COPY (1,n1,i1);
- SCM_VALIDATE_INUM_COPY (2,n2,i2);
+ SCM_VALIDATE_ULONG_COPY (1,n1,i1);
+ SCM_VALIDATE_ULONG_COPY (2,n2,i2);
return SCM_BOOL(i1 & i2);
}
#undef FUNC_NAME
SCM_DEFINE (scm_logbit_p, "logbit?", 2, 0, 0,
- (SCM n1, SCM n2),
+ (SCM index, SCM j),
"@example
(logbit? index j) @equiv{} (logtest (integer-expt 2 index) j)
@@ -621,8 +621,8 @@ SCM_DEFINE (scm_logbit_p, "logbit?", 2, 0, 0,
#define FUNC_NAME s_scm_logbit_p
{
int i1, i2;
- SCM_VALIDATE_INUM_MIN_COPY (1,n1,0,i1);
- SCM_VALIDATE_INUM_COPY (2,n2,i2);
+ SCM_VALIDATE_INUM_MIN_COPY (1,index,0,i1);
+ SCM_VALIDATE_ULONG_COPY (2,j,i2);
return SCM_BOOL((1 << i1) & i2);
}
#undef FUNC_NAME
@@ -647,7 +647,7 @@ Example:
#undef FUNC_NAME
SCM_DEFINE (scm_integer_expt, "integer-expt", 2, 0, 0,
- (SCM z1, SCM z2),
+ (SCM n, SCM k),
"Returns @var{n} raised to the non-negative integer exponent @var{k}.
Example:
@@ -662,26 +662,26 @@ Example:
SCM acc = SCM_MAKINUM (1L);
int i2;
#ifdef SCM_BIGDIG
- if (SCM_INUM0 == z1 || acc == z1)
- return z1;
- else if (SCM_MAKINUM (-1L) == z1)
- return SCM_BOOL_F == scm_even_p (z2) ? z1 : acc;
+ if (SCM_INUM0 == n || acc == n)
+ return n;
+ else if (SCM_MAKINUM (-1L) == n)
+ return SCM_BOOL_F == scm_even_p (k) ? n : acc;
#endif
- SCM_VALIDATE_INUM_COPY (2,z2,i2);
+ SCM_VALIDATE_ULONG_COPY (2,k,i2);
if (i2 < 0)
{
i2 = -i2;
- z1 = scm_divide (z1, SCM_UNDEFINED);
+ n = scm_divide (n, SCM_UNDEFINED);
}
while (1)
{
if (0 == i2)
return acc;
if (1 == i2)
- return scm_product (acc, z1);
+ return scm_product (acc, n);
if (i2 & 1)
- acc = scm_product (acc, z1);
- z1 = scm_product (z1, z1);
+ acc = scm_product (acc, n);
+ n = scm_product (n, n);
i2 >>= 1;
}
}