pass along neg-party

closes #1126
2015-11-08 09:06:49 -06:00 · 2015-11-08 09:06:49 -06:00 · 611899764f
commit 611899764f
parent 2ed6c01e56
1 changed files with 1 additions and 1 deletions
--- a/racket/collects/racket/contract/private/orc.rkt
+++ b/racket/collects/racket/contract/private/orc.rkt
@ -93,7 +93,7 @@
      (cond 
       [(pred val) val]
       [(c-first-order val) (p-app val neg-party)]
-       [else (raise-none-or-matched blame val #f)]))))
+       [else (raise-none-or-matched blame val neg-party)]))))

 (define (blame-add-or-context blame)
  (blame-add-context blame "a part of the or/c of"))