diff options
author | Kevin Ryde <user42@zip.com.au> | 2005-06-05 21:10:13 +0000 |
---|---|---|
committer | Kevin Ryde <user42@zip.com.au> | 2005-06-05 21:10:13 +0000 |
commit | 994f151dc3098401dd4402a8b3bac090b17993dc (patch) | |
tree | f08e5f616ed617252533e142660badb3fdff502c /libguile/srfi-13.c | |
parent | b8ad7a213af29a699954595d2503ed02309484b2 (diff) | |
download | guile-994f151dc3098401dd4402a8b3bac090b17993dc.tar.gz |
(scm_string_split): Compare char/char in scan. Mixing an
unsigned int SCM_CHAR and a char string meant an 8-bit char was never
matched.
Diffstat (limited to 'libguile/srfi-13.c')
-rw-r--r-- | libguile/srfi-13.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/srfi-13.c b/libguile/srfi-13.c index 01e680584..98bcfc2c6 100644 --- a/libguile/srfi-13.c +++ b/libguile/srfi-13.c @@ -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); |