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

Loosen contracts for with-tr-contracts unit test

Browse Source
This commit is contained in:
Asumu Takikawa 2015-01-09 11:19:57 -05:00
parent 3ed6b464e7
commit de926372fa
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
typed-racket-lib/typed-racket/rep/type-rep.rkt
View File

@ -490,8 +490,8 @@
;; invariant: all clauses are sorted by the key name
(def-type Row ([inits (listof (list/c symbol? Type/c boolean?))]
[fields (listof (list/c symbol? Type/c))]
[methods (listof (list/c symbol? Function?))]
[augments (listof (list/c symbol? Function?))]
[methods (listof (list/c symbol? Type/c))]
[augments (listof (list/c symbol? Type/c))]
[init-rest (or/c Type/c #f)])
#:no-provide
[#:frees (λ (f) (combine-frees
@ -973,8 +973,8 @@
(-> (or/c F? B? Row? #f)
(listof (list/c symbol? Type/c boolean?))
(listof (list/c symbol? Type/c))
(listof (list/c symbol? Function?))
(listof (list/c symbol? Function?))
(listof (list/c symbol? Type/c))
(listof (list/c symbol? Type/c))
(or/c Type/c #f)
Class?)
(*Class row-var (Row* inits fields methods augments init-rest)))