suzanne.soy/typed-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 
original commit: 4651ccc0adbc80635d17279b6413f8bce9c52ee9
This commit is contained in:
Asumu Takikawa 2012-05-03 16:43:19 -04:00 committed by Stevie Strickland
parent 56acc3592a
commit 15c7c9f6b7
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
null #;(list #'define-values))
(begin define-values)
[(begin (define-values (n) e) e*)
#`(begin (define-values (n) e)
[(begin (define-values (n) e) ... e*)
#`(begin (define-values (n) e) ...
(define name #,(syntax-property #'e*
'inferred-name
(syntax-e #'name))))]