diff --git a/contrib/x11/x.factor b/contrib/x11/x.factor index 23b04d5a75..671bf04a09 100644 --- a/contrib/x11/x.factor +++ b/contrib/x11/x.factor @@ -415,7 +415,7 @@ dpy get "XEvent" dup >r XNextEvent drop r> ; SYMBOL: error-handler-quot : 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 -- ) error-handler-quot set error-handler-callback XSetErrorHandler drop ;