From 222c57e0232cc2ecd680b9df60e3a208a1b59068 Mon Sep 17 00:00:00 2001 From: Eric Dobson Date: Sat, 25 May 2013 18:09:28 -0700 Subject: [PATCH] Minor whitespace fix. original commit: b9b1eb14ba04b164567648b211690343fe342b2b --- collects/typed-racket/typecheck/tc-app/tc-app-list.rkt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/typed-racket/typecheck/tc-app/tc-app-list.rkt b/collects/typed-racket/typecheck/tc-app/tc-app-list.rkt index 8c5d7bb2..a9967596 100644 --- a/collects/typed-racket/typecheck/tc-app/tc-app-list.rkt +++ b/collects/typed-racket/typecheck/tc-app/tc-app-list.rkt @@ -82,14 +82,14 @@ (match expected [(tc-result1: (Listof: elem-ty)) (for ([i (in-list (syntax->list #'args))]) - (tc-expr/check i (ret elem-ty))) + (tc-expr/check i (ret elem-ty))) expected] [(tc-result1: (List: (? (lambda (ts) (= (length (syntax->list #'args)) (length ts))) ts))) (for ([ac (in-list (syntax->list #'args))] [exp (in-list ts)]) - (tc-expr/check ac (ret exp))) + (tc-expr/check ac (ret exp))) expected] [_ (let ([tys (map tc-expr/t (syntax->list #'args))])