Skip to content

Commit 7f3f20f

Browse files
committed
lets see if this makes the tests pass
1 parent de6c605 commit 7f3f20f

File tree

1 file changed

+1
-2
lines changed

1 file changed

+1
-2
lines changed

typed-racket-lib/typed-racket/static-contracts/instantiate.rkt

Lines changed: 1 addition & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -42,8 +42,7 @@
4242

4343
(define (instantiate/optimize sc fail [kind 'impersonator] #:cache [cache #f] #:trusted-positive [trusted-positive #f] #:trusted-negative [trusted-negative #f])
4444
(define recursive-kinds
45-
(with-handlers [(exn:fail:constraint-failure?
46-
(lambda (exn) (fail #:reason (exn:fail:constraint-failure-reason exn))))]
45+
(with-handlers [(exn:fail:constraint-failure? (lambda (exn) #f))]
4746
(compute-recursive-kinds
4847
(contract-restrict-recursive-values (compute-constraints sc kind)))))
4948
(define sc/opt (optimize sc #:trusted-positive trusted-positive #:trusted-negative trusted-negative #:recursive-kinds recursive-kinds))

0 commit comments

Comments
 (0)