R6RS exception printing at the REPL

[Andreas Rottmann]

Hi!

Attached is a patch that improves the way R6RS exceptions are printed at
the REPL; previously:

scheme@(guile-user)> (import (rnrs))
scheme@(guile-user)> (assertion-violation 'foo "hey!" 1 2 3)
Throw to key `r6rs:exception' with args 
`(#<r6rs:record:&raise-object-wrapper>)'.
Entering a new prompt.  Type `,bt' for a backtrace or `,q' to continue.
scheme@(guile-user) [1]> 

With the patch:

scheme@(guile-user)> (import (rnrs))
scheme@(guile-user)> (assertion-violation 'foo "hey!" 1 2 3)
ERROR: R6RS exception:
  1. &assertion
  2. &who: foo
  3. &message: "hey!"
  4. &irritants: (1 2 3)

Entering a new prompt.  Type `,bt' for a backtrace or `,q' to continue.
scheme@(guile-user) [1]>

r6rs-exception-print.diff
Description: Text Data

Regards, Rotty
-- 
Andreas Rottmann -- <http://rotty.yi.org/>