From cc6d39e2171a76557a991970265b5ba37c1d7974 Mon Sep 17 00:00:00 2001 From: Stevie Strickland Date: Thu, 11 Sep 2008 23:19:34 +0000 Subject: [PATCH] More error reporting. svn: r11661 --- collects/scheme/private/contract.ss | 14 +++++++++++++- 1 file changed, 13 insertions(+), 1 deletion(-) diff --git a/collects/scheme/private/contract.ss b/collects/scheme/private/contract.ss index ea6b12c0d1..fb90087946 100644 --- a/collects/scheme/private/contract.ss +++ b/collects/scheme/private/contract.ss @@ -194,7 +194,19 @@ improve method arity mismatch contract violation error messages? (make-with-contract-transformer (quote-syntax contract-id) (quote-syntax id) - (quote-syntax (quote blame)))) ...))))]))) + (quote-syntax (quote blame)))) ...))))] + [(_ blame (arg ...) body0 body ...) + (raise-syntax-error 'with-contract + "expected identifier" + #'blame)] + [(_ blame (arg ...)) + (raise-syntax-error 'with-contract + "empty body" + stx)] + [(_ blame bad-args body0 body ...) + (raise-syntax-error 'with-contract + "expected list of identifier and/or (identifier contract)" + #'bad-args)]))) ; ;