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

Fixed a missing blame swap.

Browse Source 
svn: r17748

original commit: ad9968493ec76a2b3fc803f58b43f519c47d5c6f
This commit is contained in:
Carl Eastlund 2010-01-19 09:24:48 +00:00
parent d9e5df35ed
commit 6e6139e8ae
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))]
...) ...)