Eduardo Cavazos <wayo.cava...@gmail.com> wrote:

In this particular case, like this:

   (XSetErrorHandler xerrorhandler)

felix winkelmann wrote:

If you say

(XSetErrorHandler (location xerrorhandler))

does it work, then?

If I install it that way, when I trigger an error this appears in the repl:

    callback invoked in non-safe context - execution terminated

Again for reference, below is the code. I installed the error handler by calling 'install-xerrorhandler-alt'.

Ed

(define-external (xerrorhandler (void* dpy) (void* ev)) int
  (display "Error handler called\n"))

(define XSetErrorHandler (foreign-safe-lambda void* XSetErrorHandler (function int (void* void*))))

(define (install-xerrorhandler-alt)
  (XSetErrorHandler (location xerrorhandler)))



_______________________________________________
Chicken-users mailing list
Chicken-users@nongnu.org
http://lists.nongnu.org/mailman/listinfo/chicken-users

Reply via email to