From 2f7553ada9c993a9c77d403360fff8bdc8779d30 Mon Sep 17 00:00:00 2001 From: Sam Tobin-Hochstadt Date: Wed, 8 Oct 2008 15:34:05 +0000 Subject: [PATCH] Fix inference for simple fns with ... svn: r11977 original commit: 3db02a50e168ae8f22c056919cc1413bfb1b7c73 --- collects/typed-scheme/typecheck/tc-app-unit.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/typed-scheme/typecheck/tc-app-unit.ss b/collects/typed-scheme/typecheck/tc-app-unit.ss index 88931a18..6114a739 100644 --- a/collects/typed-scheme/typecheck/tc-app-unit.ss +++ b/collects/typed-scheme/typecheck/tc-app-unit.ss @@ -451,7 +451,7 @@ [(tc-result: (and t (or (Poly: vars (Function: (list (arr: doms rngs (and rests #f) (and drests #f) '() thn-effs els-effs) ...))) - (PolyDots: (list vars ... _) + (PolyDots: (list vars ...) (Function: (list (arr: doms rngs (and rests #f) (and drests #f) '() thn-effs els-effs) ...)))))) (handle-clauses (doms rngs) f-stx (lambda (dom _) (= (length dom) (length argtypes)))