From f2f38cdf4ac67302f5d3191404d53d2e7c8aa36b Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Wed, 30 Dec 2015 09:28:30 -0600
Subject: [PATCH] remove overly aggressive use of procedure-specialize
---
racket/collects/racket/contract/private/orc.rkt | 3 +--
1 file changed, 1 insertion(+), 2 deletions(-)
diff --git a/racket/collects/racket/contract/private/orc.rkt b/racket/collects/racket/contract/private/orc.rkt
index b8455f226c..dcb8bfc566 100644
--- a/racket/collects/racket/contract/private/orc.rkt
+++ b/racket/collects/racket/contract/private/orc.rkt
@@ -70,8 +70,7 @@
[(null? rst) fst-pred]
[else
(let ([r (loop (car rst) (cdr rst))])
- (procedure-specialize
- (λ (x) (or (fst-pred x) (r x)))))])))]))
+ (λ (x) (or (fst-pred x) (r x))))])))]))
(define (single-or/c-late-neg-projection ctc)
(define c-proj (get/build-late-neg-projection (single-or/c-ho-ctc ctc)))