remove overly aggressive use of procedure-specialize

milapsheth · Dec 30, 2015 · f2f38cd · f2f38cd
1 parent a5b3d6b
commit f2f38cd
Showing 1 changed file with 1 addition and 2 deletions.
diff --git 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)))