summaryrefslogtreecommitdiff
path: root/libguile/numbers.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/numbers.c')
-rw-r--r--libguile/numbers.c18
1 files changed, 9 insertions, 9 deletions
diff --git a/libguile/numbers.c b/libguile/numbers.c
index 12f83833f..a3fd4cc9c 100644
--- a/libguile/numbers.c
+++ b/libguile/numbers.c
@@ -3832,7 +3832,7 @@ scm_product (x, y)
double
scm_num2dbl (a, why)
SCM a;
- char *why;
+ const char *why;
{
if (SCM_INUMP (a))
return (double) SCM_INUM (a);
@@ -4205,15 +4205,15 @@ struct dpair
double x, y;
};
-static void scm_two_doubles SCM_P ((SCM z1,
- SCM z2,
- char *sstring,
- struct dpair * xy));
+static void scm_two_doubles (SCM z1,
+ SCM z2,
+ const char *sstring,
+ struct dpair * xy);
static void
scm_two_doubles (z1, z2, sstring, xy)
SCM z1, z2;
- char *sstring;
+ const char *sstring;
struct dpair *xy;
{
if (SCM_INUMP (z1))
@@ -4635,7 +4635,7 @@ long
scm_num2long (num, pos, s_caller)
SCM num;
char *pos;
- char *s_caller;
+ const char *s_caller;
{
long res;
if (SCM_INUMP (num))
@@ -4688,7 +4688,7 @@ long_long
scm_num2long_long (num, pos, s_caller)
SCM num;
char *pos;
- char *s_caller;
+ const char *s_caller;
{
long_long res;
if (SCM_INUMP (num))
@@ -4732,7 +4732,7 @@ unsigned long
scm_num2ulong (num, pos, s_caller)
SCM num;
char *pos;
- char *s_caller;
+ const char *s_caller;
{
unsigned long res;
if (SCM_INUMP (num))