Fix error message in define/contract.

svn: r14522
2009-04-15 15:43:04 +00:00 · 2009-04-15 15:43:04 +00:00 · b7063fc563
commit b7063fc563
parent beeb832223
1 changed files with 1 additions and 1 deletions
--- 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)