Fixing typo in test-group.

This commit is contained in:
Alex Shinn 2013-07-23 22:45:32 +09:00
parent e0e23fc0fd
commit c3cb2fbdbb

View file

@ -172,7 +172,7 @@
(exn (exn
(else (else
(warning "error in group outside of tests") (warning "error in group outside of tests")
(print-exception e (current-error-port)) (print-exception exn (current-error-port))
(test-group-inc! (current-test-group) 'count) (test-group-inc! (current-test-group) 'count)
(test-group-inc! (current-test-group) 'ERROR))) (test-group-inc! (current-test-group) 'ERROR)))
body ...) body ...)