Add missing properties to contract chaperone.

2016-11-18 16:27:04 -06:00 · 2016-11-18 16:27:04 -06:00 · cf2030b0b1
commit cf2030b0b1
parent c5cce7aa7b
2 changed files with 12 additions and 1 deletions
--- a/pkgs/racket-test/tests/racket/contract/promise.rkt
+++ b/pkgs/racket-test/tests/racket/contract/promise.rkt
@ -69,4 +69,13 @@
                        a
                        'pos
                        'neg)))
+   #t)
+
+  (test/spec-passed/result
+   'promise/c7
+   '(and (value-contract (contract (promise/c integer?)
+                                   (delay y)
+                                   'pos
+                                   'neg))
+         #t)
   #t))
--- a/racket/collects/racket/contract/private/misc.rkt
+++ b/racket/collects/racket/contract/private/misc.rkt
@ -349,7 +349,9 @@
                (values (λ (val) (with-contract-continuation-mark
                                  blame+neg-party
                                  (p-app val neg-party)))
-                        promise)))))
+                        promise))))
+           impersonator-prop:contracted ctc
+           impersonator-prop:blame blame)
          (raise-blame-error
           blame #:missing-party neg-party
           val