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

Fixed a missing blame swap.

Browse Source 
svn: r17748
This commit is contained in:
Carl Eastlund 2010-01-19 09:24:48 +00:00
parent 6d8b3a2e84
commit ad9968493e
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/mzlib/private/contract-arr-obj-helpers.ss
View File

@ -888,7 +888,7 @@
(syntax (syntax
((x ...) ((x ...)
(begin (begin
(check-pre-expr->pp/h val pre-expr blame) (check-pre-expr->pp/h val pre-expr (blame-swap blame))
(let ([dom-id ((contract-projection (coerce-contract 'stx-name dom)) (let ([dom-id ((contract-projection (coerce-contract 'stx-name dom))
(blame-swap blame))] (blame-swap blame))]
...) ...)