From 68aa941b877c5f28ec05667e5f8e3462256a08d9 Mon Sep 17 00:00:00 2001 From: Stevie Strickland Date: Thu, 11 Sep 2008 23:25:43 +0000 Subject: [PATCH] Since we allow non-identifiers here now (as long as they'd be appropriate name + argument lists a la define), this case will never fire. svn: r11662 --- collects/scheme/private/contract.ss | 6 +----- 1 file changed, 1 insertion(+), 5 deletions(-) diff --git a/collects/scheme/private/contract.ss b/collects/scheme/private/contract.ss index fb90087946..63b4a932f4 100644 --- a/collects/scheme/private/contract.ss +++ b/collects/scheme/private/contract.ss @@ -79,11 +79,7 @@ improve method arity mismatch contract violation error messages? (let-values ([(name lam-expr) (normalize-definition (datum->syntax #'define-stx (list* 'define/contract #'name+arg-list #'body0 #'(body ...))) #'lambda #t #t)]) - #`(define/contract #,name contract #,lam-expr))] - [(_ name contract-expr expr) - (raise-syntax-error 'define/contract "expected identifier in first position" - define-stx - (syntax name))])) + #`(define/contract #,name contract #,lam-expr))]))