From 54b81b3bdb68d6cdc650d913b63e8165873ce0de Mon Sep 17 00:00:00 2001 From: Stevie Strickland Date: Sat, 27 Feb 2010 18:04:47 +0000 Subject: [PATCH] Fix bug introduced by last commit. svn: r18385 --- collects/scheme/contract/regions.ss | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/collects/scheme/contract/regions.ss b/collects/scheme/contract/regions.ss index ecf99dc84a..f101081d90 100644 --- a/collects/scheme/contract/regions.ss +++ b/collects/scheme/contract/regions.ss @@ -380,8 +380,7 @@ (syntax-case stx (set!) [(set! i arg) (quasisyntax/loc stx - (set! #,id - (contract ctc arg neg pos (quote id) (quote-syntax id))))] + (set! id (contract ctc arg neg pos (quote id) (quote-syntax id))))] [(f arg ...) (quasisyntax/loc stx ((contract ctc id pos neg (quote id) (quote-syntax id))