From 54989bddec0f854a290b427d7cc49b0105dc56a2 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Thu, 17 May 2018 08:39:56 -0500 Subject: [PATCH] use preserved thread cells for the knot-tying cache (this makes a difference in the acquire gradual typing benchmark, which uses nested threads via the sandbox library) --- racket/collects/racket/contract/private/base.rkt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/racket/collects/racket/contract/private/base.rkt b/racket/collects/racket/contract/private/base.rkt index dacaf009bb..465cbaaa1a 100644 --- a/racket/collects/racket/contract/private/base.rkt +++ b/racket/collects/racket/contract/private/base.rkt @@ -221,7 +221,7 @@ (define (make-blame->val-np->val ctc) (define list-check? (recursive-contract-list-contract? ctc)) - (define blame-accepting-func-cell (make-thread-cell #f)) + (define blame-accepting-func-cell (make-thread-cell #f #t)) (define (do-list-check val neg-party blame-known) (when list-check? (unless (list? val) @@ -237,7 +237,7 @@ [else (define r-ctc (force-recursive-contract ctc)) (define f (get/build-late-neg-projection r-ctc)) - (define val-neg-party-acceptor (make-thread-cell #f)) + (define val-neg-party-acceptor (make-thread-cell #f #t)) (λ (val neg-party) (cond [(thread-cell-ref val-neg-party-acceptor)