d3fac7c24a
Guard opaque predicates with an (-> Any Any) contract. This uses the contract generation infrastructure to avoid wrapping struct predicates. Also, relax `any-wrap/c` (the contract used for `Any` in positive position) to allow opaque structures. This also requires an enumeration of all the other kinds of values that TR understands, so that they are not confused with opaque structures. Joint work with @bennn. Closes #202. Closes #203. Closes #241.
20 lines
349 B
Racket
20 lines
349 B
Racket
#lang racket/base
|
|
|
|
;; Generic struct predicates are OK
|
|
|
|
(module u racket/base
|
|
(require racket/generic)
|
|
(define-generics foo)
|
|
(struct foo-struct () #:methods gen:foo [])
|
|
(define f1 (foo-struct))
|
|
(provide f1 foo?))
|
|
|
|
(module t typed/racket/base
|
|
(require/typed (submod ".." u)
|
|
(#:opaque Foo foo?)
|
|
(f1 Foo))
|
|
(foo? 3)
|
|
(foo? f1))
|
|
|
|
(require 't)
|