remove overly aggressive use of procedure-specialize

2015-12-30 09:28:30 -06:00 · 2015-12-30 09:28:30 -06:00 · f2f38cdf4a
commit f2f38cdf4a
parent a5b3d6b3d0
1 changed files with 1 additions and 2 deletions
--- 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)))