suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Chez Scheme: more repairs to avoid xlocale and an old-compiler warning

Browse Source
This commit is contained in:
Matthew Flatt 2020-10-22 16:41:23 -06:00
parent 0a6b8356c1
commit 614992a65c
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
racket/src/ChezScheme/c/expeditor.c
View File

@ -553,7 +553,7 @@ static void s_ee_write_char(wchar_t c) {
#include <sys/ioctl.h> #include <sys/ioctl.h>
#include <wchar.h> #include <wchar.h>
#include <locale.h> #include <locale.h>
#if !defined(__GLIBC__) && !defined(__OpenBSD__) && !defined(__NetBSD__) && !defined(__linux__) #if !defined(__GLIBC__) && !defined(__OpenBSD__) && !defined(__NetBSD__) && !defined(__linux__) && !defined(NO_USELOCALE)
# include <xlocale.h> # include <xlocale.h>
#endif #endif
@ -712,7 +712,8 @@ static ptr s_ee_read_char(IBOOL blockp) {
return Schar(wch); return Schar(wch);
} }
} }
} } else
sz = 0;
} while ((n < 0 && errno == EINTR) || (n == 1 && sz == (size_t)-2)); } while ((n < 0 && errno == EINTR) || (n == 1 && sz == (size_t)-2));