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

Fix issue 1329

Browse Source
This commit is contained in:
Jay McCarthy 2016-05-23 20:32:34 -04:00
parent 62a44c0ca8
commit 5e43c190be
2 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -169,5 +169,13 @@
;; ----------------------------------------
(let ([msg "syntax-parameterize: not bound as a syntax parameter"])
(test (list msg) regexp-match
(regexp-quote msg)
(with-handlers ([exn:fail? (λ (x) (exn-message x))])
(eval #'(syntax-parameterize ([x (make-rename-transformer #'f)]) 1)))))
;; ----------------------------------------
(report-errs)

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

@ -42,7 +42,7 @@
(define (syntax-parameter-local-value id)
(let*-values
([(rt* rt-target)
(syntax-local-value/immediate id (lambda () #f))]
(syntax-local-value/immediate id (lambda () (values #f #f)))]
[(rt) (if (syntax-parameter? rt*)
rt*
(or (and rt-target
@ -55,7 +55,8 @@
sp))
(define (syntax-parameter-local-value-pre id)
(define-values (rt* rt-target) (syntax-local-value/immediate id (λ () #f)))
(define-values (rt* rt-target)
(syntax-local-value/immediate id (λ () (values #f #f))))
(cond
[(not rt-target)
rt*]