Forgot a quote-syntax here, so unprotected ids weren't being transformed

correctly. svn: r13121
2009-01-14 20:58:38 +00:00 · 2009-01-14 20:58:38 +00:00 · 9facb3ffaf
commit 9facb3ffaf
parent 5ac3135cd6
1 changed files with 1 additions and 1 deletions
--- a/collects/scheme/private/contract.ss
+++ b/collects/scheme/private/contract.ss
@ -274,7 +274,7 @@ improve method arity mismatch contract violation error messages?
                         protected-ids contracts)
               #,@(map (λ (u)
                         #`(define-syntax #,u
-                             (make-rename-transformer #,(marker u))))
+                             (make-rename-transformer (quote-syntax #,(marker u)))))
                         unprotected)
               (define-values ()
                 (begin