[plt-scheme] thunk-failed? with exceptions

> How can I implement Oleg's thunk-failed? procedure
> (below) in PLT that will return #t for things such as 
> 
> (thunk-failed? (lambda () (raise-syntax-error 'foo
> "bar")))

 (define (thunk-failed? t)
   (with-handlers ([(lambda (x) #t)   ; handle all exns
                    (lambda (x) #t)]) ; return #t 
      (t)
      #f)))

Matthew