From 39dd0bb3be9b995af5683e92af2fde91e5ff70bb Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Wed, 10 Jul 2013 12:20:55 -0600 Subject: [PATCH] fix `syntax/boundmap', too Related to PR 13911 --- .../racket-test/tests/racket/boundmap-test.rktl | 7 +++++++ racket/lib/collects/syntax/private/boundmap.rkt | 5 +---- 2 files changed, 8 insertions(+), 4 deletions(-) diff --git a/pkgs/racket-pkgs/racket-test/tests/racket/boundmap-test.rktl b/pkgs/racket-pkgs/racket-test/tests/racket/boundmap-test.rktl index 2ef792c012..0269bd328f 100644 --- a/pkgs/racket-pkgs/racket-test/tests/racket/boundmap-test.rktl +++ b/pkgs/racket-pkgs/racket-test/tests/racket/boundmap-test.rktl @@ -143,4 +143,11 @@ (set! l (cons y 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) diff --git a/racket/lib/collects/syntax/private/boundmap.rkt b/racket/lib/collects/syntax/private/boundmap.rkt index 6c41d692ff..4699d9ba59 100644 --- a/racket/lib/collects/syntax/private/boundmap.rkt +++ b/racket/lib/collects/syntax/private/boundmap.rkt @@ -107,10 +107,7 @@ (define-struct module-identifier-mapping (ht)) (define (module-identifier->symbol id) - (let ([binding (identifier-binding id)]) - (if (pair? binding) - (cadr binding) - (syntax-e id)))) + (identifier-binding-symbol id)) (make-mapping-code module-identifier->symbol