Fix contract on tc-result.
original commit: 0902fe2fa9376c5bbd7508a9985f9d652e73b5db
This commit is contained in:
parent
97371ccfa0
commit
222133ac5d
|
@ -152,7 +152,7 @@
|
|||
(provide tc-result: tc-results: tc-any-results: tc-result1: Result1: Results:
|
||||
tc-results)
|
||||
(provide/cond-contract
|
||||
[tc-result (Type/c Filter/c Object? -> tc-results?)]
|
||||
[tc-result (Type/c FilterSet/c Object? . c:-> . tc-result?)]
|
||||
[combine-results ((c:listof tc-results?) . c:-> . tc-results?)]
|
||||
[tc-any-results ((c:or/c Filter/c NoFilter?) . c:-> . tc-any-results?)]
|
||||
[tc-result-t (tc-result? . c:-> . Type/c)]
|
||||
|
|
Loading…
Reference in New Issue
Block a user