Fix blame error for listof contract
This commit is contained in:
parent
6099a70c52
commit
76e27da8ba
|
@ -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))
|
||||
|
||||
|
|
Loading…
Reference in New Issue
Block a user