From 15c7c9f6b77e8bd5c0e60c1ff5d5727824e18fdc Mon Sep 17 00:00:00 2001 From: Asumu Takikawa Date: Thu, 3 May 2012 16:43:19 -0400 Subject: [PATCH] Fix a TR issue with syntax-local-lift-expression original commit: 4651ccc0adbc80635d17279b6413f8bce9c52ee9 --- collects/typed-racket/utils/require-contract.rkt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/typed-racket/utils/require-contract.rkt b/collects/typed-racket/utils/require-contract.rkt index e39a261e..d3baf9b0 100644 --- a/collects/typed-racket/utils/require-contract.rkt +++ b/collects/typed-racket/utils/require-contract.rkt @@ -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))))]