From b7063fc563eba2bbacbf40a062cf29e2a3394030 Mon Sep 17 00:00:00 2001 From: Stevie Strickland Date: Wed, 15 Apr 2009 15:43:04 +0000 Subject: [PATCH] Fix error message in define/contract. svn: r14522 --- 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 52688c3f6e..5920e8a6e0 100644 --- a/collects/scheme/private/contract.ss +++ b/collects/scheme/private/contract.ss @@ -87,7 +87,7 @@ improve method arity mismatch contract violation error messages? define-stx)] [(_ name contract-expr) (raise-syntax-error 'define/contract - "no body after contract" + "expected a contract expression and a definition body, but found only one expression" define-stx)] [(_ name+arg-list contract #:freevars args . body) (identifier? #'args)