From 306e091f3569db21b4bf61ca23d02afbe8045fc6 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Tue, 9 Aug 2011 09:05:42 -0600 Subject: [PATCH] fix a `(with-handlers ([exn? ....]) ....)' --- collects/tests/eli-tester.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/tests/eli-tester.rkt b/collects/tests/eli-tester.rkt index 8c47e297ea..011c1c3a7d 100644 --- 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