From c09b9baae800a022b94e91a116b9558cc46d5bfe Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Mon, 18 Aug 2008 22:19:18 +0000
Subject: [PATCH] fix stxparam bug (from Olin via Sam)

svn: r11304
---
 collects/scheme/private/stxparamkey.ss | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/scheme/private/stxparamkey.ss b/collects/scheme/private/stxparamkey.ss
index d81756fcce..d7adbdee40 100644
--- a/collects/scheme/private/stxparamkey.ss
+++ b/collects/scheme/private/stxparamkey.ss
@@ -34,7 +34,7 @@
 	(syntax-case stx ()
 	  [(set! id _expr) 
 	   (free-identifier=? #'set! set!-stx)
-	   (syntax/loc stx (set! target expr))]
+	   (syntax/loc stx (set! target _expr))]
 	  [(id . rest)
 	   (let ([v (syntax (target . rest))])
 	     (datum->syntax