remove 'compiled' from x11 so it works with current factor
parent
4a79d7ccb5
commit
aa8fe942ee
|
|
@ -415,7 +415,7 @@ dpy get "XEvent" <c-object> dup >r XNextEvent drop r> ;
|
||||||
SYMBOL: error-handler-quot
|
SYMBOL: error-handler-quot
|
||||||
|
|
||||||
: error-handler-callback ( -- xt ) "void" { "Display*" "XErrorEvent*" }
|
: error-handler-callback ( -- xt ) "void" { "Display*" "XErrorEvent*" }
|
||||||
[ error-handler-quot get call ] alien-callback ; compiled
|
[ error-handler-quot get call ] alien-callback ;
|
||||||
|
|
||||||
: set-error-handler ( quot -- )
|
: set-error-handler ( quot -- )
|
||||||
error-handler-quot set error-handler-callback XSetErrorHandler drop ;
|
error-handler-quot set error-handler-callback XSetErrorHandler drop ;
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue