/[guile]/guile/guile-core/libguile/strop.c
ViewVC logotype

Diff of /guile/guile-core/libguile/strop.c

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

revision 1.67 by ossau, Fri Nov 16 15:04:17 2001 UTC revision 1.68 by mvo, Mon Mar 11 17:51:18 2002 UTC
# Line 410  SCM_DEFINE (scm_string_downcase, "string Line 410  SCM_DEFINE (scm_string_downcase, "string
410  static SCM  static SCM
411  string_capitalize_x (SCM str)  string_capitalize_x (SCM str)
412  {  {
413    char *sz;    unsigned char *sz;
414    long i, len;    long i, len;
415    int in_word=0;    int in_word=0;
416    
417    len = SCM_STRING_LENGTH(str);    len = SCM_STRING_LENGTH(str);
418    sz = SCM_STRING_CHARS (str);    sz = SCM_STRING_UCHARS (str);
419    for(i=0; i<len;  i++) {    for(i=0; i<len;  i++) {
420      if (!SCM_FALSEP (scm_char_alphabetic_p (SCM_MAKE_CHAR (sz[i])))) {      if (!SCM_FALSEP (scm_char_alphabetic_p (SCM_MAKE_CHAR (sz[i])))) {
421        if(!in_word) {        if(!in_word) {

Legend:
Removed from v.1.67  
changed lines
  Added in v.1.68

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