update contract in comment

This commit is contained in:
Robby Findler 2015-12-20 07:47:08 -06:00
parent 0553f191d7
commit efc8bcc2fd

View File

@ -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)