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

Fix a TR issue with syntax-local-lift-expression

Browse Source
This commit is contained in:
Asumu Takikawa 2012-05-03 16:43:19 -04:00 committed by Stevie Strickland
parent 9f9468f7c2
commit 4651ccc0ad
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/typed-racket/utils/require-contract.rkt
View File

@ -15,8 +15,8 @@
'expression 'expression
null #;(list #'define-values)) null #;(list #'define-values))
(begin define-values) (begin define-values)
[(begin (define-values (n) e) e*) [(begin (define-values (n) e) ... e*)
#`(begin (define-values (n) e) #`(begin (define-values (n) e) ...
(define name #,(syntax-property #'e* (define name #,(syntax-property #'e*
'inferred-name 'inferred-name
(syntax-e #'name))))] (syntax-e #'name))))]