Handle new potential printing of empty list type.

This commit is contained in:
Sam Tobin-Hochstadt 2017-05-22 16:33:57 -04:00
parent 3432f80a20
commit 2785e6f950

View File

@ -3501,7 +3501,7 @@
(define y (for/fold: ((x : String null)) ((v : String null)) x))
y)
#:ret (tc-ret -String -true-propset)
#:msg #rx"expected: String.*given: (Null|'\\(\\))"]
#:msg #rx"expected: String.*given: (Null|'\\(\\)|\\(List\\))"]
;; PR 14493
[tc-err