suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

removed (unused) reference to not-break-exn?

Browse Source
This commit is contained in:
Ryan Culpepper 2012-07-24 19:02:41 -04:00
parent 800a328fe6
commit 6eb8da1f40
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/tests/stxparse/stress-template.rkt
View File

@ -7,7 +7,7 @@
[(_ body) [(_ body)
#'(discard-exn body #f)] #'(discard-exn body #f)]
[(_ body on-exn) [(_ body on-exn)
#'(with-handlers ([not-break-exn? (lambda (_) on-exn)]) #'(with-handlers ([exn:fail? (lambda (_) on-exn)])
body)])) body)]))
(define (f1-tmpl stx) (define (f1-tmpl stx)
@ -15,7 +15,7 @@
[(_ body) [(_ body)
(template (discard-exn body #f))] (template (discard-exn body #f))]
[(_ body on-exn) [(_ body on-exn)
(template (with-handlers ([not-break-exn? (lambda (_) on-exn)]) (template (with-handlers ([exn:fail? (lambda (_) on-exn)])
body))])) body))]))
(define (f2-stx stx) (define (f2-stx stx)