From efc8bcc2fd83aac985d3bb86ca65fcbfdcbaff79 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Sun, 20 Dec 2015 07:47:08 -0600 Subject: [PATCH] update contract in comment --- racket/collects/racket/private/class-c-old.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/racket/collects/racket/private/class-c-old.rkt b/racket/collects/racket/private/class-c-old.rkt index ffced24345..22e31cf62d 100644 --- a/racket/collects/racket/private/class-c-old.rkt +++ b/racket/collects/racket/private/class-c-old.rkt @@ -1525,7 +1525,7 @@ (let bindings (make-base-object/c methods method-ctcs fields field-ctcs)))))])) -;; make-wrapper-object: contract object blame +;; make-wrapper-object: contract object blame neg-party ;; (listof symbol) (listof contract?) (listof symbol) (listof contract?) ;; -> wrapped object (define (make-wrapper-object ctc obj blame neg-party methods method-contracts fields field-contracts)