summaryrefslogtreecommitdiff
path: root/libguile/symbols.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/symbols.c')
-rw-r--r--libguile/symbols.c16
1 files changed, 8 insertions, 8 deletions
diff --git a/libguile/symbols.c b/libguile/symbols.c
index a0904125a..6355b07e8 100644
--- a/libguile/symbols.c
+++ b/libguile/symbols.c
@@ -230,7 +230,7 @@ scm_sym2ovcell (sym, obarray)
SCM
scm_intern_obarray_soft (name, len, obarray, softness)
- char *name;
+ const char *name;
scm_sizet len;
SCM obarray;
int softness;
@@ -330,7 +330,7 @@ scm_intern_obarray_soft (name, len, obarray, softness)
SCM
scm_intern_obarray (name, len, obarray)
- char *name;
+ const char *name;
scm_sizet len;
SCM obarray;
{
@@ -340,7 +340,7 @@ scm_intern_obarray (name, len, obarray)
SCM
scm_intern (name, len)
- char *name;
+ const char *name;
scm_sizet len;
{
return scm_intern_obarray (name, len, scm_symhash);
@@ -349,7 +349,7 @@ scm_intern (name, len)
SCM
scm_intern0 (name)
- char * name;
+ const char * name;
{
return scm_intern (name, strlen (name));
}
@@ -358,7 +358,7 @@ scm_intern0 (name)
/* Intern the symbol named NAME in scm_symhash, NAME is null-terminated. */
SCM
scm_sysintern0_no_module_lookup (name)
- char *name;
+ const char *name;
{
SCM easy_answer;
SCM_DEFER_INTS;
@@ -395,7 +395,7 @@ int scm_can_use_top_level_lookup_closure_var;
*/
SCM
scm_sysintern (name, val)
- char *name;
+ const char *name;
SCM val;
{
SCM vcell = scm_sysintern0 (name);
@@ -405,7 +405,7 @@ scm_sysintern (name, val)
SCM
scm_sysintern0 (name)
- char *name;
+ const char *name;
{
SCM lookup_proc;
if (scm_can_use_top_level_lookup_closure_var &&
@@ -425,7 +425,7 @@ scm_sysintern0 (name)
NAME in the current module. */
SCM
scm_symbol_value0 (name)
- char *name;
+ const char *name;
{
/* This looks silly - we look up the symbol twice. But it is in
fact necessary given the current module system because the module