summaryrefslogtreecommitdiff
path: root/libguile/gh_funcs.c
diff options
context:
space:
mode:
authorDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2000-05-18 10:20:22 +0000
committerDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2000-05-18 10:20:22 +0000
commitbcee10ddd203bf8cf1dd0e899a4a04334c1a0bed (patch)
tree352d7948f709bea0ede5f3dc390890f2a474c390 /libguile/gh_funcs.c
parentaf45e3b06accc40d2c92918d5901afb793e8b247 (diff)
downloadguile-bcee10ddd203bf8cf1dd0e899a4a04334c1a0bed.tar.gz
* Where possible, accept const pointers as parameters.
Diffstat (limited to 'libguile/gh_funcs.c')
-rw-r--r--libguile/gh_funcs.c28
1 files changed, 14 insertions, 14 deletions
diff --git a/libguile/gh_funcs.c b/libguile/gh_funcs.c
index 8ce009432..676d1cdb6 100644
--- a/libguile/gh_funcs.c
+++ b/libguile/gh_funcs.c
@@ -49,7 +49,7 @@
/* allows you to define new scheme primitives written in C */
SCM
-gh_new_procedure (char *proc_name, SCM (*fn) (),
+gh_new_procedure (const char *proc_name, SCM (*fn) (),
int n_required_args, int n_optional_args, int varp)
{
return scm_make_gsubr (proc_name, n_required_args, n_optional_args,
@@ -57,80 +57,80 @@ gh_new_procedure (char *proc_name, SCM (*fn) (),
}
SCM
-gh_new_procedure0_0 (char *proc_name, SCM (*fn) ())
+gh_new_procedure0_0 (const char *proc_name, SCM (*fn) ())
{
return gh_new_procedure (proc_name, fn, 0, 0, 0);
}
SCM
-gh_new_procedure0_1 (char *proc_name, SCM (*fn) ())
+gh_new_procedure0_1 (const char *proc_name, SCM (*fn) ())
{
return gh_new_procedure (proc_name, fn, 0, 1, 0);
}
SCM
-gh_new_procedure0_2 (char *proc_name, SCM (*fn) ())
+gh_new_procedure0_2 (const char *proc_name, SCM (*fn) ())
{
return gh_new_procedure (proc_name, fn, 0, 2, 0);
}
SCM
-gh_new_procedure1_0 (char *proc_name, SCM (*fn) ())
+gh_new_procedure1_0 (const char *proc_name, SCM (*fn) ())
{
return gh_new_procedure (proc_name, fn, 1, 0, 0);
}
SCM
-gh_new_procedure1_1 (char *proc_name, SCM (*fn) ())
+gh_new_procedure1_1 (const char *proc_name, SCM (*fn) ())
{
return gh_new_procedure (proc_name, fn, 1, 1, 0);
}
SCM
-gh_new_procedure1_2 (char *proc_name, SCM (*fn) ())
+gh_new_procedure1_2 (const char *proc_name, SCM (*fn) ())
{
return gh_new_procedure (proc_name, fn, 1, 2, 0);
}
SCM
-gh_new_procedure2_0 (char *proc_name, SCM (*fn) ())
+gh_new_procedure2_0 (const char *proc_name, SCM (*fn) ())
{
return gh_new_procedure (proc_name, fn, 2, 0, 0);
}
SCM
-gh_new_procedure2_1 (char *proc_name, SCM (*fn) ())
+gh_new_procedure2_1 (const char *proc_name, SCM (*fn) ())
{
return gh_new_procedure (proc_name, fn, 2, 1, 0);
}
SCM
-gh_new_procedure2_2 (char *proc_name, SCM (*fn) ())
+gh_new_procedure2_2 (const char *proc_name, SCM (*fn) ())
{
return gh_new_procedure (proc_name, fn, 2, 2, 0);
}
SCM
-gh_new_procedure3_0 (char *proc_name, SCM (*fn) ())
+gh_new_procedure3_0 (const char *proc_name, SCM (*fn) ())
{
return gh_new_procedure (proc_name, fn, 3, 0, 0);
}
SCM
-gh_new_procedure4_0 (char *proc_name, SCM (*fn) ())
+gh_new_procedure4_0 (const char *proc_name, SCM (*fn) ())
{
return gh_new_procedure (proc_name, fn, 4, 0, 0);
}
SCM
-gh_new_procedure5_0 (char *proc_name, SCM (*fn) ())
+gh_new_procedure5_0 (const char *proc_name, SCM (*fn) ())
{
return gh_new_procedure (proc_name, fn, 5, 0, 0);
}
/* some (possibly most) Scheme functions available from C */
SCM
-gh_define (char *name, SCM val)
+gh_define (const char *name, SCM val)
{
return scm_sysintern (name, val);
}