unbreak mzlib/contract's version of object-contract

This commit is contained in:
Robby Findler 2015-12-20 07:43:24 -06:00
parent f2236ea54b
commit f9f77329a7

View File

@ -287,7 +287,7 @@
#:projection
(lambda (blame)
(lambda (val)
(make-wrapper-object ctc val blame
(make-wrapper-object ctc val blame #f
(list 'method-name ...) (list method-ctc-var ...)
(list 'field-name ...) (list field-ctc-var ...))))
#:first-order