diff options
author | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2001-04-10 07:57:05 +0000 |
---|---|---|
committer | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2001-04-10 07:57:05 +0000 |
commit | e4b265d817c6758441bbfc66730cae98eabde9b5 (patch) | |
tree | 401f2628ddf4bcab2a6c72023daba0c8b0aa03eb /libguile/gh_data.c | |
parent | 40f83c3e1b5cb1d440f785d857981417c5fa6f85 (diff) | |
download | guile-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.c | 14 |
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); } |