Remove dead code in tc-metafunctions.

This commit is contained in:
Eric Dobson 2014-03-23 22:49:21 -07:00
parent d718a66d97
commit aedf612a06

View File

@ -161,11 +161,6 @@
(? values i))) (? values i)))
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) (define (tc-results->values tc)
(match tc (match tc
[(tc-any-results:) ManyUniv] [(tc-any-results:) ManyUniv]