From ea206c7b3d8226761ab8a276d05f7b60ab41288b Mon Sep 17 00:00:00 2001 From: Stevie Strickland Date: Fri, 12 Sep 2008 16:48:33 +0000 Subject: [PATCH] Go back to the old style. svn: r11688 --- collects/scheme/private/contract.ss | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/scheme/private/contract.ss b/collects/scheme/private/contract.ss index 61f804f9d6..24c9653e9b 100644 --- a/collects/scheme/private/contract.ss +++ b/collects/scheme/private/contract.ss @@ -142,7 +142,7 @@ improve method arity mismatch contract violation error messages? id pos-blame-id 'neg-blame-id - (quote-syntax #,(id->contract-src-info #'f))) + (quote-syntax f)) arg ...))] [ident (identifier? (syntax ident)) @@ -151,7 +151,7 @@ improve method arity mismatch contract violation error messages? id pos-blame-id 'neg-blame-id - (quote-syntax #,(id->contract-src-info #'ident))))]))))) + (quote-syntax ident)))]))))) (define-for-syntax (check-and-split-with-contract-args args) (let loop ([args args]