mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-17 09:10:22 +02:00
Code Activity

* __scm.h, chars.c, debug.c, eval.c, eval.h, extchrs.c, extchrs.h,

Browse source 
fdsocket.c, feature.c, mbstrings.c, mbstrings.h, numbers.c,
numbers.h, print.c, scmhob.h, simpos.h, symbols.c, symbols.h,
tags.h, throw.c, variable.h: Name cleanup.  Lots of xxxSCM_yyy
removed.  (These were introduced by unsupervised name
substitution.)
This commit is contained in:
Mikael Djurfeldt 1996-09-13 11:07:24 +00:00
parent 1a80fb07a7
commit e2806c1000
11 changed files with 60 additions and 60 deletions
Download patch file Download diff file Expand all files Collapse all files

6
libguile/chars.c
View file

@ -384,8 +384,8 @@ scm_char_downcase(chr)
static unsigned char scm_upcase_table[SCM_CHAR_SCM_CODE_LIMIT];
static unsigned char scm_downcase_table[SCM_CHAR_SCM_CODE_LIMIT];
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";
@ -398,7 +398,7 @@ scm_tables_prehistory ()
#endif
{
int i;
for (i = 0; i < SCM_CHAR_SCM_CODE_LIMIT; i++)
for (i = 0; i < SCM_CHAR_CODE_LIMIT; i++)
scm_upcase_table[i] = scm_downcase_table[i] = i;
for (i = 0; i < sizeof scm_lowers / sizeof (char); i++)
{