(scm_string_split): Compare char/char in scan. Mixing an
authorKevin Ryde <user42@zip.com.au>
Sun, 5 Jun 2005 21:10:13 +0000 (21:10 +0000)
committerKevin Ryde <user42@zip.com.au>
Sun, 5 Jun 2005 21:10:13 +0000 (21:10 +0000)
unsigned int SCM_CHAR and a char string meant an 8-bit char was never
matched.

libguile/srfi-13.c

index 01e6805..98bcfc2 100644 (file)
@@ -3224,7 +3224,7 @@ SCM_DEFINE (scm_string_split, "string-split", 2, 0, 0,
 {
   long idx, last_idx;
   const char * p;
-  int ch;
+  char ch;
   SCM res = SCM_EOL;
 
   SCM_VALIDATE_STRING (1, str);