summaryrefslogtreecommitdiff
path: root/libguile/chars.c
diff options
context:
space:
mode:
authorJim Blandy <jimb@red-bean.com>1999-02-06 12:28:45 +0000
committerJim Blandy <jimb@red-bean.com>1999-02-06 12:28:45 +0000
commit57e3a543b2fba2e506e00a371119b9825b24db25 (patch)
tree93903e6948b901b612edb3a967683a1375849fe1 /libguile/chars.c
parente54a0ce96be8128d9a5381b6e0167e5a08ea04ba (diff)
downloadguile-57e3a543b2fba2e506e00a371119b9825b24db25.tar.gz
* chars.c (scm_lowers, scm_uppers, scm_charnames, scm_charnums),
eval.c (s_expression, s_test, s_body, s_bindings, s_variable, s_clauses, s_formals): Variables now const.
Diffstat (limited to 'libguile/chars.c')
-rw-r--r--libguile/chars.c12
1 files changed, 6 insertions, 6 deletions
diff --git a/libguile/chars.c b/libguile/chars.c
index 3eaa626e8..f5f7fd402 100644
--- a/libguile/chars.c
+++ b/libguile/chars.c
@@ -302,8 +302,8 @@ scm_char_downcase(chr)
static unsigned char scm_upcase_table[SCM_CHAR_CODE_LIMIT];
static unsigned char scm_downcase_table[SCM_CHAR_CODE_LIMIT];
-static unsigned char scm_lowers[] = "abcdefghijklmnopqrstuvwxyz";
-static unsigned char scm_uppers[] = "ABCDEFGHIJKLMNOPQRSTUVWXYZ";
+static const unsigned char scm_lowers[] = "abcdefghijklmnopqrstuvwxyz";
+static const unsigned char scm_uppers[] = "ABCDEFGHIJKLMNOPQRSTUVWXYZ";
void
@@ -355,7 +355,7 @@ scm_downcase (c)
#ifdef EBCDIC
-char *scm_charnames[] =
+char *const scm_charnames[] =
{
"nul","soh","stx","etx", "pf", "ht", "lc","del",
0 , 0 ,"smm", "vt", "ff", "cr", "so", "si",
@@ -367,7 +367,7 @@ char *scm_charnames[] =
0 , 0 , 0 , 0 ,"dc4","nak", 0 ,"sub",
"space", scm_s_newline, "tab", "backspace", "return", "page", "null"};
-char scm_charnums[] =
+const char scm_charnums[] =
"\000\001\002\003\004\005\006\007\
\010\011\012\013\014\015\016\017\
\020\021\022\023\024\025\026\027\
@@ -379,14 +379,14 @@ char scm_charnums[] =
\n\t\b\r\f\0";
#endif /* def EBCDIC */
#ifdef ASCII
-char *scm_charnames[] =
+char *const scm_charnames[] =
{
"nul","soh","stx","etx","eot","enq","ack","bel",
"bs", "ht", "newline", "vt", "np", "cr", "so", "si",
"dle","dc1","dc2","dc3","dc4","nak","syn","etb",
"can", "em","sub","esc", "fs", "gs", "rs", "us",
"space", "nl", "tab", "backspace", "return", "page", "null", "del"};
-char scm_charnums[] =
+const char scm_charnums[] =
"\000\001\002\003\004\005\006\007\
\010\011\012\013\014\015\016\017\
\020\021\022\023\024\025\026\027\