Parsing eval errors

[Chris Dennis]

Hello Guilers

Is there some code anywhere for parsing the error information caught 
from local-eval?

The following code is the best I have come up with so far, but the 
messages it produces aren't pretty:

  (define (error-handler key . args)
    (display (object->string key))
    (for-each (lambda (arg)
                (display (_ ", arg="))
                (display (object->string arg)))
              args)
    (newline))

  (catch #t (local-eval s-expr (the-environment))
            error-handler)

regards

Chris
--
Chris Dennis                                  cgden...@btinternet.com
Fordingbridge, Hampshire, UK