--- srfi-13.c.~1.19.~ 2003-04-07 08:05:29.000000000 +1000 +++ srfi-13.c 2004-04-06 11:21:46.000000000 +1000 @@ -1,6 +1,6 @@ /* srfi-13.c --- SRFI-13 procedures for Guile * - * Copyright (C) 2001 Free Software Foundation, Inc. + * Copyright (C) 2001, 2004 Free Software Foundation, Inc. * * This library is free software; you can redistribute it and/or * modify it under the terms of the GNU Lesser General Public @@ -593,7 +593,7 @@ { while (cstart < cend) { - if (!isspace(cstr[cstart])) + if (!isspace((int) (unsigned char) cstr[cstart])) break; cstart++; } @@ -668,7 +668,7 @@ { while (cstart < cend) { - if (!isspace(cstr[cend - 1])) + if (!isspace((int) (unsigned char) cstr[cend - 1])) break; cend--; } @@ -743,13 +743,13 @@ { while (cstart < cend) { - if (!isspace(cstr[cstart])) + if (!isspace((int) (unsigned char) cstr[cstart])) break; cstart++; } while (cstart < cend) { - if (!isspace(cstr[cend - 1])) + if (!isspace((int) (unsigned char) cstr[cend - 1])) break; cend--; }