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/numbers.c | |
parent | 40f83c3e1b5cb1d440f785d857981417c5fa6f85 (diff) | |
download | guile-e4b265d817c6758441bbfc66730cae98eabde9b5.tar.gz |
* Avoid redundant casting of argument numbers to char* and vice versa.
Diffstat (limited to 'libguile/numbers.c')
-rw-r--r-- | libguile/numbers.c | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/libguile/numbers.c b/libguile/numbers.c index c712b6544..9cac82d45 100644 --- a/libguile/numbers.c +++ b/libguile/numbers.c @@ -4358,7 +4358,7 @@ scm_ulong2num (unsigned long sl) long -scm_num2long (SCM num, char *pos, const char *s_caller) +scm_num2long (SCM num, unsigned long int pos, const char *s_caller) { if (SCM_INUMP (num)) { return SCM_INUM (num); @@ -4402,7 +4402,7 @@ scm_num2long (SCM num, char *pos, const char *s_caller) scm_out_of_range (s_caller, num); } } else { - scm_wrong_type_arg (s_caller, (int) pos, num); + scm_wrong_type_arg (s_caller, pos, num); } } @@ -4414,7 +4414,7 @@ scm_num2long (SCM num, char *pos, const char *s_caller) #endif long_long -scm_num2long_long (SCM num, char *pos, const char *s_caller) +scm_num2long_long (SCM num, unsigned long int pos, const char *s_caller) { if (SCM_INUMP (num)) { return SCM_INUM (num); @@ -4453,12 +4453,12 @@ scm_num2long_long (SCM num, char *pos, const char *s_caller) scm_out_of_range (s_caller, num); } } else { - scm_wrong_type_arg (s_caller, (int) pos, num); + scm_wrong_type_arg (s_caller, pos, num); } } ulong_long -scm_num2ulong_long (SCM num, char *pos, const char *s_caller) +scm_num2ulong_long (SCM num, unsigned long int pos, const char *s_caller) { if (SCM_INUMP (num)) { @@ -4493,14 +4493,14 @@ scm_num2ulong_long (SCM num, char *pos, const char *s_caller) scm_out_of_range (s_caller, num); } else - scm_wrong_type_arg (s_caller, (int) pos, num); + scm_wrong_type_arg (s_caller, pos, num); } #endif /* HAVE_LONG_LONGS */ unsigned long -scm_num2ulong (SCM num, char *pos, const char *s_caller) +scm_num2ulong (SCM num, unsigned long int pos, const char *s_caller) { if (SCM_INUMP (num)) { long nnum = SCM_INUM (num); @@ -4531,7 +4531,7 @@ scm_num2ulong (SCM num, char *pos, const char *s_caller) scm_out_of_range (s_caller, num); } } else { - scm_wrong_type_arg (s_caller, (int) pos, num); + scm_wrong_type_arg (s_caller, pos, num); } } |