From 51decc085d6b36cc902456e2ea1c0a5b52f5c731 Mon Sep 17 00:00:00 2001 From: Daniel Feltey Date: Fri, 20 Apr 2018 15:45:33 -0500 Subject: [PATCH] remove unused definition --- racket/collects/racket/private/class-c-old.rkt | 5 +---- 1 file changed, 1 insertion(+), 4 deletions(-) diff --git a/racket/collects/racket/private/class-c-old.rkt b/racket/collects/racket/private/class-c-old.rkt index fef27bb4a5..f315ce5064 100644 --- 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