steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Make setlocale() failure non-fatal since it appears to be broken on the eeepc

db4
Slava Pestov 2008-11-27 23:37:16 -06:00
parent fff10d8082
commit 268f3e4838
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
basis/x11/xlib/xlib.factor
View File

@ -13,7 +13,7 @@
USING: kernel arrays alien alien.c-types alien.strings USING: kernel arrays alien alien.c-types alien.strings
alien.syntax math math.bitwise words sequences namespaces alien.syntax math math.bitwise words sequences namespaces
continuations io.encodings.ascii ; continuations io io.encodings.ascii ;
IN: x11.xlib IN: x11.xlib
LIBRARY: xlib LIBRARY: xlib
@ -1359,8 +1359,8 @@ SYMBOL: scr
SYMBOL: root SYMBOL: root
: init-locale ( -- ) : init-locale ( -- )
LC_ALL "" setlocale [ "setlocale() failed" throw ] unless LC_ALL "" setlocale [ "setlocale() failed" print flush ] unless
XSupportsLocale [ "XSupportsLocale() failed" throw ] unless ; XSupportsLocale [ "XSupportsLocale() failed" print flush ] unless ;
: flush-dpy ( -- ) dpy get XFlush drop ; : flush-dpy ( -- ) dpy get XFlush drop ;
@ -1381,4 +1381,4 @@ SYMBOL: root
: close-x ( -- ) dpy get XCloseDisplay drop ; : close-x ( -- ) dpy get XCloseDisplay drop ;
: with-x ( display-string quot -- ) : with-x ( display-string quot -- )
>r initialize-x r> [ close-x ] [ ] cleanup ; [ initialize-x ] dip [ close-x ] [ ] cleanup ;