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

Fix issue 1286

Browse Source
This commit is contained in:
Jay McCarthy 2016-04-06 10:18:03 -04:00
parent e4c0b75cae
commit 782f5798a2
2 changed files with 18 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
pkgs/racket-test-core/tests/racket/stxparam.rktl
View File

@ -155,5 +155,19 @@
;; ----------------------------------------
(let ()
(define-syntax-rule (mac-zero) 0)
(define-syntax-parameter x (make-rename-transformer #'mac-zero))
(define-syntax-rule (mac-one) 1)
(define-syntax y (make-rename-transformer #'x))
(test #t = (mac-zero) 0)
(test #t = (mac-one) 1)
(test #t = (x) 0)
(test #t = (y) 0)
(test #t = (syntax-parameterize ([y (make-rename-transformer #'mac-one)]) (x)) 1)
(test #t = (syntax-parameterize ([y (make-rename-transformer #'mac-one)]) (y)) 1))
;; ----------------------------------------
(report-errs)

5
racket/collects/racket/private/stxparamkey.rkt
View File

@ -45,7 +45,10 @@
(syntax-local-value/immediate id (lambda () #f))]
[(rt) (if (syntax-parameter? rt*)
rt*
(or rt-target rt*))]
(or (and rt-target
(syntax-local-value rt-target
(λ () rt-target)))
rt*))]
[(sp) (if (set!-transformer? rt)
(set!-transformer-procedure rt)
rt)])