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

Of course, it would help if this was correct.

Browse Source 
svn: r18289
This commit is contained in:
Stevie Strickland 2010-02-23 04:18:29 +00:00
parent e4f7f0032e
commit 70b5fe6294
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/mzlib/private/contract-object.ss
View File

@ -294,7 +294,7 @@
(list 'field-name ...) (list field-ctc-var ...))))
#:first-order
(lambda (val)
(make-wrapper-object obj #f (list 'method-name ...) (list 'field-name ...))))))))]))))
(check-object-contract val #f (list 'method-name ...) (list 'field-name ...))))))))]))))
(define (check-object val blame)