Remove dead code in tc-metafunctions.

2014-03-23 22:49:21 -07:00 · 2014-03-23 22:49:21 -07:00 · aedf612a06
commit aedf612a06
parent d718a66d97
1 changed files with 0 additions and 5 deletions
--- a/pkgs/typed-racket-pkgs/typed-racket-lib/typed-racket/typecheck/tc-metafunctions.rkt
+++ b/pkgs/typed-racket-pkgs/typed-racket-lib/typed-racket/typecheck/tc-metafunctions.rkt
@ -161,11 +161,6 @@
                               (? values i)))
           i)])))

-(define (merge-filter-sets fs)
-  (match fs
-    [(list (FilterSet: f+ f-) ...)
-     (-FS (make-AndFilter f+) (make-AndFilter f-))]))
-
 (define (tc-results->values tc)
  (match tc
    [(tc-any-results:) ManyUniv]