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

Typos and type errors in new property stuff.

Browse Source 
svn: r17700

original commit: bb7bd9de51f01b2620a8162da5de0bfffd645247
This commit is contained in:
Carl Eastlund 2010-01-17 07:23:47 +00:00
parent 7a79b808a8
commit f56868d873
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/mzlib/private/contract-arr-obj-helpers.ss
View File

@ -365,7 +365,7 @@
[(val blame name-id) outer-args])
(syntax
(let ([dom-contract-x (coerce-contract '-> dom)] ...)
(let ([dom-x (contract-proc dom-contract-x)] ...)
(let ([dom-x (contract-projection dom-contract-x)] ...)
(let ([name-id (build-compound-type-name '-> name-dom-contract-x ... 'any)])
body))))))

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

@ -331,9 +331,9 @@
...
[field-ctc-var (coerce-contract 'object-contract field-ctc-stx)]
...)
(let ([method-var (contract-proc method-ctc-var)]
(let ([method-var (contract-projection method-ctc-var)]
...
[field-var (contract-proc field-ctc-var)]
[field-var (contract-projection field-ctc-var)]
...)
(let ([cls (make-wrapper-class 'wrapper-class
'(method-name ...)