summaryrefslogtreecommitdiff
path: root/libguile/gh_data.c
diff options
context:
space:
mode:
authorDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2001-04-10 07:57:05 +0000
committerDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2001-04-10 07:57:05 +0000
commite4b265d817c6758441bbfc66730cae98eabde9b5 (patch)
tree401f2628ddf4bcab2a6c72023daba0c8b0aa03eb /libguile/gh_data.c
parent40f83c3e1b5cb1d440f785d857981417c5fa6f85 (diff)
downloadguile-e4b265d817c6758441bbfc66730cae98eabde9b5.tar.gz
* Avoid redundant casting of argument numbers to char* and vice versa.
Diffstat (limited to 'libguile/gh_data.c')
-rw-r--r--libguile/gh_data.c14
1 files changed, 8 insertions, 6 deletions
diff --git a/libguile/gh_data.c b/libguile/gh_data.c
index 3d6483fcb..e431208b3 100644
--- a/libguile/gh_data.c
+++ b/libguile/gh_data.c
@@ -229,18 +229,18 @@ gh_scm2bool (SCM obj)
unsigned long
gh_scm2ulong (SCM obj)
{
- return scm_num2ulong (obj, (char *) SCM_ARG1, "gh_scm2ulong");
+ return scm_num2ulong (obj, SCM_ARG1, "gh_scm2ulong");
}
long
gh_scm2long (SCM obj)
{
- return scm_num2long (obj, (char *) SCM_ARG1, "gh_scm2long");
+ return scm_num2long (obj, SCM_ARG1, "gh_scm2long");
}
int
gh_scm2int (SCM obj)
{
/* NOTE: possible loss of precision here */
- return (int) scm_num2long (obj, (char *) SCM_ARG1, "gh_scm2int");
+ return (int) scm_num2long (obj, SCM_ARG1, "gh_scm2int");
}
double
gh_scm2double (SCM obj)
@@ -395,7 +395,9 @@ gh_scm2longs (SCM obj, long *m)
for (i = 0; i < n; ++i)
{
val = SCM_VELTS (obj)[i];
- m[i] = SCM_INUMP (val) ? SCM_INUM (val) : scm_num2long (val, 0, 0);
+ m[i] = SCM_INUMP (val)
+ ? SCM_INUM (val)
+ : scm_num2long (val, 0, NULL);
}
break;
#ifdef HAVE_ARRAYS
@@ -447,7 +449,7 @@ gh_scm2floats (SCM obj, float *m)
if (SCM_INUMP (val))
m[i] = SCM_INUM (val);
else if (SCM_BIGP (val))
- m[i] = scm_num2long (val, 0, 0);
+ m[i] = scm_num2long (val, 0, NULL);
else
m[i] = SCM_REAL_VALUE (val);
}
@@ -510,7 +512,7 @@ gh_scm2doubles (SCM obj, double *m)
if (SCM_INUMP (val))
m[i] = SCM_INUM (val);
else if (SCM_BIGP (val))
- m[i] = scm_num2long (val, 0, 0);
+ m[i] = scm_num2long (val, 0, NULL);
else
m[i] = SCM_REAL_VALUE (val);
}