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

Uniformly "unpack" contract blame party names.

Browse Source 
svn: r17904
This commit is contained in:
Carl Eastlund 2010-01-31 00:30:00 +00:00
parent 29b628cb0a
commit 0e697067cb
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/scheme/contract/private/base.ss
View File

@ -27,7 +27,12 @@ improve method arity mismatch contract violation error messages?
(syntax-case stx () (syntax-case stx ()
[(_ c v pos neg name loc) [(_ c v pos neg name loc)
(syntax/loc stx (syntax/loc stx
(apply-contract c v pos neg name loc))] (apply-contract c
v
(unpack-blame pos)
(unpack-blame neg)
name
loc))]
[(_ c v pos neg) [(_ c v pos neg)
(syntax/loc stx (syntax/loc stx
(apply-contract c (apply-contract c