remove unused definition

2018-04-20 15:45:33 -05:00 · 2018-04-20 15:45:33 -05:00 · 51decc085d
commit 51decc085d
parent 07473865a6
1 changed files with 1 additions and 4 deletions
--- a/racket/collects/racket/private/class-c-old.rkt
+++ b/racket/collects/racket/private/class-c-old.rkt
@ -1699,11 +1699,8 @@
            [c (in-list method-contracts)]
            [method-proj (in-list method-projs)])
        (when c
-          (unless (just-check-existence? c)
+          (when method-proj
            (define i (hash-ref method-ht m))
-            (define p ((contract-late-neg-projection c)
-                       (blame-add-context blame (format "the ~a method in" m)
-                                          #:important m)))
            (vector-set! meths i (make-method (method-proj (vector-ref meths i) neg-party) m))))))
    
    ;; Handle external field contracts