update contract in comment
This commit is contained in:
parent
0553f191d7
commit
efc8bcc2fd
|
@ -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)
|
||||
|
|
Loading…
Reference in New Issue
Block a user