suzanne.soy/compatibility
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

original commit: 70b5fe6294cef704e00d642f8087d4249499155d
This commit is contained in:
Stevie Strickland 2010-02-23 04:18:29 +00:00
parent a862db4fc1
commit 28bbf99b88
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 ...)))) (list 'field-name ...) (list field-ctc-var ...))))
#:first-order #:first-order
(lambda (val) (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) (define (check-object val blame)