From 6eb8da1f405b71d6c377906bbd1acd5de1f6d6d6 Mon Sep 17 00:00:00 2001 From: Ryan Culpepper Date: Tue, 24 Jul 2012 19:02:41 -0400 Subject: [PATCH] removed (unused) reference to not-break-exn? --- collects/tests/stxparse/stress-template.rkt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/tests/stxparse/stress-template.rkt b/collects/tests/stxparse/stress-template.rkt index 6d7a2272d4..60afc01d75 100644 --- a/collects/tests/stxparse/stress-template.rkt +++ b/collects/tests/stxparse/stress-template.rkt @@ -7,7 +7,7 @@ [(_ body) #'(discard-exn body #f)] [(_ body on-exn) - #'(with-handlers ([not-break-exn? (lambda (_) on-exn)]) + #'(with-handlers ([exn:fail? (lambda (_) on-exn)]) body)])) (define (f1-tmpl stx) @@ -15,7 +15,7 @@ [(_ body) (template (discard-exn body #f))] [(_ body on-exn) - (template (with-handlers ([not-break-exn? (lambda (_) on-exn)]) + (template (with-handlers ([exn:fail? (lambda (_) on-exn)]) body))])) (define (f2-stx stx)