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

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

@ -237,8 +237,10 @@
(values phase (values phase
(for/hash ([(sym id) (in-hash ht)]) (for/hash ([(sym id) (in-hash ht)])
(values sym (values sym
(if (eq? id #t)
#t
`(#%decode-syntax `(#%decode-syntax
,(decompile-stx (stx-encoded id) stx-ht))))))) ,(decompile-stx (stx-encoded id) stx-ht))))))))
(quote language-info ,lang-info) (quote language-info ,lang-info)
,@(if (null? flags) '() (list `(quote ,flags))) ,@(if (null? flags) '() (list `(quote ,flags)))
,@(let ([l (apply ,@(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))] [lang-info (or/c #f (vector/c module-path? symbol? any/c))]
[internal-context (or/c #f #t stx? (vectorof stx?))] [internal-context (or/c #f #t stx? (vectorof stx?))]
[binding-names (hash/c exact-integer? [binding-names (hash/c exact-integer?
(hash/c symbol? stx?))] (hash/c symbol? (or/c #t stx?)))]
[flags (listof (or/c 'cross-phase))] [flags (listof (or/c 'cross-phase))]
[pre-submodules (listof mod?)] [pre-submodules (listof mod?)]
[post-submodules (listof mod?)])) [post-submodules (listof mod?)]))