fix stxparam bug (from Olin via Sam)

svn: r11304
2008-08-18 22:19:18 +00:00 · 2008-08-18 22:19:18 +00:00 · c09b9baae8
commit c09b9baae8
parent 972128abf0
1 changed files with 1 additions and 1 deletions
--- 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