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

Need scheme/class's init for use in class/c form.

Browse Source 
svn: r18543

original commit: bf56a108fe3c3f05976223dd81dbbf5b80baed33
This commit is contained in:
Stevie Strickland 2010-03-15 09:04:10 +00:00
parent d22cdbcee1
commit 7387b32825
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/typed-scheme/private/type-contract.ss
View File

@ -15,7 +15,7 @@
scheme/match syntax/struct syntax/stx mzlib/trace unstable/syntax scheme/list
(only-in scheme/contract -> ->* case-> cons/c flat-rec-contract provide/contract any/c)
(for-template scheme/base scheme/contract unstable/poly-c (utils any-wrap)
(only-in scheme/class object% is-a?/c subclass?/c object-contract class/c object/c class?)))
(only-in scheme/class object% is-a?/c subclass?/c object-contract class/c init object/c class?)))
(define (define/fixup-contract? stx)
(or (syntax-property stx 'typechecker:contract-def)