From b2c6dd5b9ea503808ead37b099c20f18000e7f2a Mon Sep 17 00:00:00 2001 From: Stevie Strickland Date: Sat, 21 Feb 2009 18:59:25 +0000 Subject: [PATCH] This should have been a reference to the already verified contract. svn: r13780 --- collects/scheme/private/contract.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/scheme/private/contract.ss b/collects/scheme/private/contract.ss index 0b122dccae..26b6ed81a7 100644 --- a/collects/scheme/private/contract.ss +++ b/collects/scheme/private/contract.ss @@ -607,7 +607,7 @@ improve method arity mismatch contract violation error messages? (define-syntaxes (u ... p ...) (values (make-rename-transformer #'marked-u) ... (make-with-contract-transformer - (quote-syntax ctc) + (quote-syntax ctc-id) (quote-syntax marked-p) (quote-syntax blame-stx)) ...)))))))] [(_ #:type type blame (arg ...) #:freevar x c . body)