unbreak mzlib/contract's version of object-contract
This commit is contained in:
parent
f2236ea54b
commit
f9f77329a7
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue
Block a user