From b3cda2a3c91ffe0f942c64ee85e0e8863e93c50d Mon Sep 17 00:00:00 2001
From: "wayo.cavazos" <wayo.cavazos@gmail.com>
Date: Sat, 25 Feb 2006 06:05:41 +0000
Subject: [PATCH] Use set-error-handler

---
 contrib/factory/factory.factor | 9 +--------
 1 file changed, 1 insertion(+), 8 deletions(-)

diff --git a/contrib/factory/factory.factor b/contrib/factory/factory.factor
index fe0b6a34fd..b1fb504511 100644
--- a/contrib/factory/factory.factor
+++ b/contrib/factory/factory.factor
@@ -591,16 +591,9 @@ SYMBOL: window-list
 
 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 
-: xlib-error-handler ( -- xt ) "void" { "Display*" "XErrorEvent*" }
-[ "X11 : error-handler called" print flush ] alien-callback ; compiled
-
-: install-error-handler ( -- ) xlib-error-handler XSetErrorHandler drop ;
-
-! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-
 : start-factory ( dpy-string -- )
   initialize-x
-  install-error-handler
+  [ "X11 : error-handler called" print flush ] set-error-handler
   root get [ make-drag-gc ] with-win drag-gc set
   root get [ black-pixel get set-window-background clear-window ] with-win
   root get create-wm-root