From e2a017f331b09745540bf47873cd9f1539f878ca Mon Sep 17 00:00:00 2001
From: Sam Tobin-Hochstadt <samth@racket-lang.org>
Date: Fri, 6 Mar 2009 19:51:33 +0000
Subject: [PATCH] fix typo

svn: r13989
---
 collects/typed-scheme/typecheck/tc-metafunctions.ss | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/typed-scheme/typecheck/tc-metafunctions.ss b/collects/typed-scheme/typecheck/tc-metafunctions.ss
index 5382d22c96..4081a3ad8d 100644
--- a/collects/typed-scheme/typecheck/tc-metafunctions.ss
+++ b/collects/typed-scheme/typecheck/tc-metafunctions.ss
@@ -44,7 +44,7 @@
     [_ null]))
 
 (define/contract (apply-filter lfs t o)
-  (-> LFilterSet? Type/c Object?)
+  (-> LFilterSet? Type/c Object? FilterSet?)
   (match lfs
     [(LFilterSet: lf+ lf-)
      (combine