/[guile]/guile/guile-core/srfi/srfi-13.c
ViewVC logotype

Diff of /guile/guile-core/srfi/srfi-13.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.11.2.3 by ossau, Wed Nov 14 00:02:59 2001 UTC revision 1.11.2.4 by mvo, Mon Mar 11 17:56:39 2002 UTC
# Line 2106  SCM_DEFINE (scm_string_downcaseS, "strin Line 2106  SCM_DEFINE (scm_string_downcaseS, "strin
2106  static SCM  static SCM
2107  string_titlecase_x (SCM str, int start, int end)  string_titlecase_x (SCM str, int start, int end)
2108  {  {
2109    char * sz;    unsigned char * sz;
2110    int i, in_word = 0;    int i, in_word = 0;
2111    
2112    sz = SCM_STRING_CHARS (str);    sz = SCM_STRING_UCHARS (str);
2113    for(i = start; i < end;  i++)    for(i = start; i < end;  i++)
2114      {      {
2115        if (!SCM_FALSEP (scm_char_alphabetic_p (SCM_MAKE_CHAR (sz[i]))))        if (!SCM_FALSEP (scm_char_alphabetic_p (SCM_MAKE_CHAR (sz[i]))))

Legend:
Removed from v.1.11.2.3  
changed lines
  Added in v.1.11.2.4

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26