Add missing properties to contract chaperone.

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))

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