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

fix contract on compilation-top field

Browse Source 
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
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
zo-lib/compiler/zo-structs.rkt
View File

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