Fix contract for structs

This commit is contained in:
Sam Tobin-Hochstadt 2010-06-17 15:18:04 -04:00
parent 924cee89c6
commit 02238a7c6d

View File

@ -218,7 +218,7 @@
#;
[flds (listof (cons/c Type/c boolean?))]
[proc (or/c #f Function?)]
[poly? boolean?]
[poly? (or/c #f (listof symbol?))]
[pred-id identifier?]
[cert procedure?]
[acc-ids (listof identifier?)]