x11.*: auto string to alien conversion for XOpenDisplay

diff --git a/basis/x11/x11.factor b/basis/x11/x11.factor
index d32eaca47e8e518d7ded11220f957380605be9ed..c1b5ea5c68763df8745c90e3adbc1b85719e58b4 100644 (file)
--- a/basis/x11/x11.factor
+++ b/basis/x11/x11.factor
@@ -23,7 +23,6 @@ SYMBOL: root
 
 : init-x ( display-string -- )
     init-locale
-    dup [ ascii string>alien ] when
     XOpenDisplay check-display dpy set-global
     dpy get XDefaultScreen scr set-global
     dpy get scr get XRootWindow root set-global

diff --git a/basis/x11/xlib/xlib.factor b/basis/x11/xlib/xlib.factor
index eaf7a416ada4d7e53d8e1ded0c709740408cddc2..04e58521a90ceee0c188e60ec6c444844a6301fb 100644 (file)
--- a/basis/x11/xlib/xlib.factor
+++ b/basis/x11/xlib/xlib.factor
@@ -13,7 +13,7 @@
 !
 ! https://www.x.org/releases/X11R7.6/doc/libX11/specs/libX11/libX11.html
 USING: accessors alien.c-types alien.data alien.syntax classes.struct
-kernel literals math x11.syntax x11.X ;
+io.encodings.ascii kernel literals math x11.X x11.syntax ;
 FROM: alien.c-types => short ;
 IN: x11.xlib
 
@@ -51,7 +51,7 @@ STRUCT: Display
     { free_funcs void* }
     { fd int } ;
 
-X-FUNCTION: Display* XOpenDisplay ( void* display_name )
+X-FUNCTION: Display* XOpenDisplay ( c-string[ascii] display_name )
 
 ! 2.2 Obtaining Information about the Display, Image Formats, or Screens