Fix blame error for listof contract

This commit is contained in:
Asumu Takikawa 2015-11-16 23:12:46 -05:00 committed by Robby Findler
parent 6099a70c52
commit 76e27da8ba

View File

@ -630,7 +630,7 @@
(raise-blame-error blame #:missing-party neg-party val
'(expected: "~s" given: "~e")
(if empty-ok?
"list?"
'list?
(format "~s" `(and/c list? pair?)))
val))