[R6RS] Semantics of `raise'

[William D Clinger]

Oops!  Please ignore the code in my previous message,
which was grossly incorrect.  The with-exception-handlers
code in the SRFI-34 reference implementation already does
the right thing, so raise-continuable is just:

(define (raise-continuable obj)
  (let ((handlers *current-exception-handlers*))
    (with-exception-handlers (cdr handlers)
      (lambda ()
        ((car handlers) obj)))))

I still think the textual description of raise-continuable
in my previous message is the intended semantics.

Will