Fix printing of tc-any-results in type errors.

In the long run, these error messages should get
simplified so that this printing is not necessary.

Closes PR 13577 and PR 13526
(cherry picked from commit e53b0858c3)
This commit is contained in:
Asumu Takikawa 2013-05-03 15:11:40 -04:00 committed by Ryan Culpepper
parent def0ec7c01
commit 07fca0974d

View File

@ -74,6 +74,7 @@
(match t
[(tc-result1: t) t]
[(tc-results: ts) (-values ts)]
[(tc-any-results:) ManyUniv]
[_ t]))
(define (stringify-domain dom rst drst [rng #f])