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

adjust bindings-table encoding

Browse Source
This commit is contained in:
Matthew Flatt 2015-03-16 17:26:51 -06:00
parent bbfdc73e5d
commit 6a2e75c454
2 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler-lib/compiler/decompile.rkt
View File

@ -237,8 +237,10 @@
(values phase
(for/hash ([(sym id) (in-hash ht)])
(values sym
`(#%decode-syntax
,(decompile-stx (stx-encoded id) stx-ht)))))))
(if (eq? id #t)
#t
`(#%decode-syntax
,(decompile-stx (stx-encoded id) stx-ht))))))))
(quote language-info ,lang-info)
,@(if (null? flags) '() (list `(quote ,flags)))
,@(let ([l (apply

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

@ -140,7 +140,7 @@
[lang-info (or/c #f (vector/c module-path? symbol? any/c))]
[internal-context (or/c #f #t stx? (vectorof stx?))]
[binding-names (hash/c exact-integer?
(hash/c symbol? stx?))]
(hash/c symbol? (or/c #t stx?)))]
[flags (listof (or/c 'cross-phase))]
[pre-submodules (listof mod?)]
[post-submodules (listof mod?)]))