diff --git a/utils.rkt b/utils.rkt index 16b2c12..221bb8b 100644 --- a/utils.rkt +++ b/utils.rkt @@ -455,13 +455,13 @@ (sequence->list (in-values-sequence (apply in-parallel lists)))) (module+ test - (test-case "lists-transpose" - (check-equal? (lists-transpose '((1 2) (a b))) '((1 a) (2 b))))) + (test-case "lists-transpose" + (check-equal? (lists-transpose '((1 2) (a b))) '((1 a) (2 b))))) (: in-random (case-> - (-> (Sequenceof Flonum)) - (-> Integer (Sequenceof Nonnegative-Fixnum)) - (-> Integer Integer (Sequenceof Nonnegative-Fixnum)))) + (-> (Sequenceof Flonum)) + (-> Integer (Sequenceof Nonnegative-Fixnum)) + (-> Integer Integer (Sequenceof Nonnegative-Fixnum)))) (define in-random (case-lambda [() (stream-cons (random) (in-random))]