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

Replace another exn? check by exn:fail?.

Browse Source 
svn: r16040
This commit is contained in:
Mike Sperber 2009-09-17 13:14:07 +00:00
parent e5df901306
commit 1e0a68516e
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/deinprogramm/DMdA.ss
View File

@ -1002,7 +1002,7 @@
(define (check-property-error test src-info test-info) (define (check-property-error test src-info test-info)
(let ((info (send test-info get-info))) (let ((info (send test-info get-info)))
(send info add-check) (send info add-check)
(with-handlers ((exn? (with-handlers ((exn:fail?
(lambda (e) (lambda (e)
(send info property-error e src-info) (send info property-error e src-info)
(raise e)))) (raise e))))