summaryrefslogtreecommitdiff
path: root/libguile/numbers.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/numbers.c')
-rw-r--r--libguile/numbers.c16
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);
}
}