We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent de6c605 commit 7f3f20fCopy full SHA for 7f3f20f
typed-racket-lib/typed-racket/static-contracts/instantiate.rkt
@@ -42,8 +42,7 @@
42
43
(define (instantiate/optimize sc fail [kind 'impersonator] #:cache [cache #f] #:trusted-positive [trusted-positive #f] #:trusted-negative [trusted-negative #f])
44
(define recursive-kinds
45
- (with-handlers [(exn:fail:constraint-failure?
46
- (lambda (exn) (fail #:reason (exn:fail:constraint-failure-reason exn))))]
+ (with-handlers [(exn:fail:constraint-failure? (lambda (exn) #f))]
47
(compute-recursive-kinds
48
(contract-restrict-recursive-values (compute-constraints sc kind)))))
49
(define sc/opt (optimize sc #:trusted-positive trusted-positive #:trusted-negative trusted-negative #:recursive-kinds recursive-kinds))
0 commit comments