From 6986b126187cbb702d15b42f819acb56203cdc56 Mon Sep 17 00:00:00 2001 From: Stevie Strickland Date: Wed, 18 Jun 2008 16:03:33 -0400 Subject: [PATCH] Fix extra -lst call that shouldn't be there. --- collects/typed-scheme/private/tc-lambda-unit.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/typed-scheme/private/tc-lambda-unit.ss b/collects/typed-scheme/private/tc-lambda-unit.ss index 3cb7da1063..ac55f75361 100644 --- a/collects/typed-scheme/private/tc-lambda-unit.ss +++ b/collects/typed-scheme/private/tc-lambda-unit.ss @@ -84,7 +84,7 @@ [(< arg-len tys-len) (-lst (list-ref arg-tys arg-len))] [else (-lst (Un))])]) (with-lexical-env/extend - (list rest) (list (-lst rest-type)) + (list rest) (list rest-type) (check-body)))]))) (syntax-case args () [(args* ...)