From d18a56a95610cf599cc8bb0a4a6db8e4280a8c4a Mon Sep 17 00:00:00 2001 From: Stevie Strickland Date: Tue, 17 Feb 2009 20:32:04 +0000 Subject: [PATCH] Okay, no infinite syntax unrolling, please. svn: r13705 --- 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 53e005458f..d0a26df997 100644 --- a/collects/scheme/private/contract.ss +++ b/collects/scheme/private/contract.ss @@ -95,7 +95,7 @@ improve method arity mismatch contract violation error messages? #'args)] [(_ name+arg-list contract #:freevars (arg ...) #:freevar x c . body) (syntax/loc define-stx - (define/contract name+arg-list contract #:freevars (arg ... [x c]) #:freevar x c . body))] + (define/contract name+arg-list contract #:freevars (arg ... [x c]) . body))] [(_ name+arg-list contract #:freevar x c . body) (syntax/loc define-stx (define/contract name+arg-list contract #:freevars () #:freevar x c . body))]