From ac576f50852c50e9c8ef521f3425154582778310 Mon Sep 17 00:00:00 2001
From: Stevie Strickland <sstrickl@racket-lang.org>
Date: Fri, 12 Sep 2008 17:09:42 +0000
Subject: [PATCH] There's nothing quasi about the body, so just go with regular
 syntax (and change the quote-syntax uses to just #')

svn: r11690
---
 collects/scheme/private/contract.ss | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/collects/scheme/private/contract.ss b/collects/scheme/private/contract.ss
index d052110e06..92022d436a 100644
--- a/collects/scheme/private/contract.ss
+++ b/collects/scheme/private/contract.ss
@@ -139,21 +139,21 @@ improve method arity mismatch contract violation error messages?
                               stx
                               (syntax id))]
          [(f arg ...)
-          (quasisyntax/loc stx
+          (syntax/loc stx
             ((-contract contract-id
                         id
                         pos-blame-id
                         'neg-blame-id
-                        (quote-syntax f))
+                        #'f)
              arg ...))]
          [ident
           (identifier? (syntax ident))
-          (quasisyntax/loc stx
+          (syntax/loc stx
             (-contract contract-id
                        id
                        pos-blame-id
                        'neg-blame-id
-                       (quote-syntax ident)))])))))
+                       #'ident))])))))
 
 (define-for-syntax (check-and-split-with-contract-args args)
   (let loop ([args args]