From 635a8a229ff9eeeabca921f9af40f7492e5e3637 Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Thu, 14 Mar 2013 07:15:43 -0400 Subject: [PATCH] Fix lots of indentation mistakes. (Found by my ayatollah script...) original commit: af6be85ff576e475753a46bd3f1690eb8bf88a28 --- collects/rackunit/private/test-suite.rkt | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/collects/rackunit/private/test-suite.rkt b/collects/rackunit/private/test-suite.rkt index 38a2c70..1e32954 100644 --- a/collects/rackunit/private/test-suite.rkt +++ b/collects/rackunit/private/test-suite.rkt @@ -133,8 +133,7 @@ (define (tests->test-suite-action tests) (lambda (fdown fup fhere seed) - (parameterize - ([current-seed seed]) + (parameterize ([current-seed seed]) (for-each (lambda (t) (cond @@ -152,7 +151,7 @@ (format "tests->test-suite-action received ~a in list of tests ~a, which is not a test." t tests) (current-continuation-marks)))])) tests) - (current-seed)))) + (current-seed)))) ;; make-test-suite : string [#:before thunk] [#:after thunk] (listof test?) -> test-suite? ;;