suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

update contract in comment

Browse Source
This commit is contained in:
Robby Findler 2015-12-20 07:47:08 -06:00
parent 0553f191d7
commit efc8bcc2fd
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
racket/collects/racket/private/class-c-old.rkt
View File

@ -1525,7 +1525,7 @@
(let bindings (let bindings
(make-base-object/c methods method-ctcs fields field-ctcs)))))])) (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?) ;; (listof symbol) (listof contract?) (listof symbol) (listof contract?)
;; -> wrapped object ;; -> wrapped object
(define (make-wrapper-object ctc obj blame neg-party methods method-contracts fields field-contracts) (define (make-wrapper-object ctc obj blame neg-party methods method-contracts fields field-contracts)