Remove dead code in tc-metafunctions.
This commit is contained in:
parent
d718a66d97
commit
aedf612a06
|
@ -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]
|
||||||
|
|
Loading…
Reference in New Issue
Block a user