Fixed a blame assignment typo.

svn: r17741
2010-01-19 07:14:00 +00:00 · 2010-01-19 07:14:00 +00:00 · d01e61508f
commit d01e61508f
parent 2633965c91
1 changed files with 1 additions and 1 deletions
--- a/collects/scheme/contract/private/arrow.ss
+++ b/collects/scheme/contract/private/arrow.ss
@ -928,7 +928,7 @@ v4 todo:
                          [rng-underscore? (box? (->d-range ->d-stct))])
                     (when (->d-pre-cond ->d-stct)
                       (unless (apply (->d-pre-cond ->d-stct) dep-pre-args)
-                         (raise-blame-error blame
+                         (raise-blame-error (blame-swap blame)
                                            val
                                            "#:pre-cond violation~a"
                                            (build-values-string ", argument" dep-pre-args))))