From 965cbb00e20d53949c15281ea2b42c56309a2c73 Mon Sep 17 00:00:00 2001 From: John Clements Date: Wed, 10 Dec 2008 19:00:29 +0000 Subject: [PATCH] fixed test/exn svn: r12767 --- collects/handin-server/checker.ss | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/collects/handin-server/checker.ss b/collects/handin-server/checker.ss index 8d5d1fc9f2..ed589110e2 100644 --- a/collects/handin-server/checker.ss +++ b/collects/handin-server/checker.ss @@ -726,8 +726,10 @@ (define-syntax (!test/exn stx) (syntax-case stx () [(_ test-exp) - #`(with-handlers ([exn:fail? (lambda (exn) #t)]) - ((submission-eval) `test-exp) + #`(unless + (with-handlers ([exn:fail? (lambda (exn) #t)]) + ((submission-eval) `test-exp) + #f) (error* "expected exception on test expression: ~v" (->disp 'test-exp)))]))