add (and/c vector? any-wrap/c) -like contracts

for VectorTop, HashTableTop, etc. going from typed to untyped
2016-06-25 21:51:15 -04:00 · 2016-06-25 21:51:15 -04:00 · d7670250d4
commit d7670250d4
parent 9bda1bfcbc
1 changed files with 1 additions and 1 deletions
--- a/typed-racket-lib/typed-racket/private/type-contract.rkt
+++ b/typed-racket-lib/typed-racket/private/type-contract.rkt
@ -346,7 +346,7 @@

      (define (only-untyped sc)
        (if (from-typed? typed-side)
-            (fail #:reason "contract generation not supported for this type")
+            (and/sc sc any-wrap/sc)
            sc))
      (cached-match sc-cache type typed-side
        ;; Applications of implicit recursive type aliases