[racket] continuation barrier in raise

Thanks for the code. 

I'm a bit confused as replacing 'call-with-exception-handler' by
'with-handlers' seem to not produce the same bahavior:

(call-with-continuation-prompt
 (lambda ()
  (with-handlers
   ([(lambda (_) true) (lambda (_)
     (call-with-current-continuation
      (lambda (k) (abort-current-continuation t k))
      t))])
   (lambda () (raise 3))))
 t
 (lambda (k)
  (call-with-continuation-prompt
   (lambda () (k 4))
   t)))

What am I missing?

Keiko