fix contract on compilation-top
field
A binding-name table has identifiers encoded as `stx`, not actual identifiers.
This commit is contained in:
parent
9571b33f40
commit
7d60d6d885
|
@ -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
|
||||
|
||||
|
|
Loading…
Reference in New Issue
Block a user