fixed test/exn

svn: r12767
2008-12-10 19:00:29 +00:00 · 2008-12-10 19:00:29 +00:00 · 965cbb00e2
commit 965cbb00e2
parent 02147ef4f3
1 changed files with 4 additions and 2 deletions
--- 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)))]))