diff options
author | Jim Blandy <jimb@red-bean.com> | 1999-02-06 12:28:45 +0000 |
---|---|---|
committer | Jim Blandy <jimb@red-bean.com> | 1999-02-06 12:28:45 +0000 |
commit | 57e3a543b2fba2e506e00a371119b9825b24db25 (patch) | |
tree | 93903e6948b901b612edb3a967683a1375849fe1 /libguile/chars.c | |
parent | e54a0ce96be8128d9a5381b6e0167e5a08ea04ba (diff) | |
download | guile-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.c | 12 |
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\ |