Fixed bug I introduced when changing make-proj-contract to simple-contract.

svn: r17744
2010-01-19 07:33:03 +00:00 · 2010-01-19 07:33:03 +00:00 · e5c74e7a25
commit e5c74e7a25
parent 9506494416
1 changed files with 1 additions and 1 deletions
--- a/collects/tests/mzscheme/contract-test.ss
+++ b/collects/tests/mzscheme/contract-test.ss
@ -5261,7 +5261,7 @@
         #:projection
         (lambda (blame)
           (lambda (x)
-             (if blame 'positive 'negative)))))
+             (if (blame-swapped? blame) 'negative 'positive)))))

      (define call*0 'dummy)
      (define (call*1 x0) x0)