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

fix `syntax/boundmap', too

Browse Source 
Related to PR 13911
This commit is contained in:
Matthew Flatt 2013-07-10 12:20:55 -06:00
parent 2a4f32d853
commit 39dd0bb3be
2 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
pkgs/racket-pkgs/racket-test/tests/racket/boundmap-test.rktl
View File

@ -143,4 +143,11 @@
(set! l (cons y l)))) (set! l (cons y l))))
l))))) l)))))
(let ()
(define-syntax name 'dummy)
(define-syntax alias (make-rename-transformer #'name))
(define table (make-free-identifier-mapping))
(free-identifier-mapping-put! table #'alias 0)
(test 0 free-identifier-mapping-get table #'name))
(report-errs) (report-errs)

5
racket/lib/collects/syntax/private/boundmap.rkt
View File

@ -107,10 +107,7 @@
(define-struct module-identifier-mapping (ht)) (define-struct module-identifier-mapping (ht))
(define (module-identifier->symbol id) (define (module-identifier->symbol id)
(let ([binding (identifier-binding id)]) (identifier-binding-symbol id))
(if (pair? binding)
(cadr binding)
(syntax-e id))))
(make-mapping-code (make-mapping-code
module-identifier->symbol module-identifier->symbol