fix contract on compilation-top field

A binding-name table has identifiers encoded as `stx`, not
actual identifiers.
This commit is contained in:
Matthew Flatt 2015-09-07 08:26:40 -06:00
parent 9571b33f40
commit 7d60d6d885

View File

@ -68,7 +68,7 @@
(define-form-struct compilation-top ([max-let-depth exact-nonnegative-integer?]
[binding-namess (hash/c exact-nonnegative-integer?
(hash/c symbol? identifier?))]
(hash/c symbol? stx?))]
[prefix prefix?]
[code (or/c form? any/c)])) ; compiled code always wrapped with this