suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fix blame error for listof contract

Browse Source
This commit is contained in:
Asumu Takikawa 2015-11-16 23:12:46 -05:00 committed by Robby Findler
parent 6099a70c52
commit 76e27da8ba
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
racket/collects/racket/contract/private/misc.rkt
View File

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