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.
18 lines
289 B
Racket
18 lines
289 B
Racket
#lang racket/base
|
|
|
|
;; #:opaque structs should be allowed
|
|
|
|
(module untyped racket/base
|
|
(struct s ())
|
|
(define val (s))
|
|
(provide val (struct-out s)))
|
|
|
|
(module typed typed/racket/base
|
|
(require/typed (submod ".." untyped)
|
|
[#:opaque S s?]
|
|
[val S])
|
|
(s? 4)
|
|
(s? val))
|
|
|
|
(require 'typed)
|