Parsing eval errors

[Chris Dennis <cgdennis@btinternet.com>]

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                                  cgdennis@btinternet.com
Fordingbridge, Hampshire, UK