From 71a64bfb770a033e8ada9fbbaafbd6b05a3f9f22 Mon Sep 17 00:00:00 2001 From: Stevie Strickland Date: Fri, 8 Mar 2013 23:36:05 -0500 Subject: [PATCH] Remove additional cruft. --- collects/racket/contract/region.rkt | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/collects/racket/contract/region.rkt b/collects/racket/contract/region.rkt index e73fe96b7f..9557f4e57f 100644 --- a/collects/racket/contract/region.rkt +++ b/collects/racket/contract/region.rkt @@ -774,8 +774,7 @@ ...) new-stx) (define-values (ctc-id ...) - (let-syntax ([marked-p (λ (stx) (quote-syntax true-p))] ...) - (values (verify-contract 'with-contract ctc) ...))) + (values (verify-contract 'with-contract ctc) ...)) (define-syntaxes (p ...) (values (make-external-contracted-id-transformer (quote-syntax true-p)