fix a `(with-handlers ([exn? ....]) ....)'

2011-08-09 09:05:42 -06:00 · 2011-08-09 09:05:42 -06:00 · 306e091f35
commit 306e091f35
parent 2d06f4247f
1 changed files with 1 additions and 1 deletions
--- a/collects/tests/eli-tester.rkt
+++ b/collects/tests/eli-tester.rkt
@ -7,7 +7,7 @@
  (syntax-case stx ()
    [(_ expr)
     ;; catch syntax errors while expanding, turn them into runtime errors
-     (with-handlers ([exn? (lambda (e) #`(list 'error #,(exn-message e) #f))])
+     (with-handlers ([exn:fail:syntax? (lambda (e) #`(list 'error #,(exn-message e) #f))])
       (define-values (_ opaque)
         (syntax-local-expand-expression
          #'(with-handlers