From 16399b7827591b4c6f29e25a3d2c6e8f529029e9 Mon Sep 17 00:00:00 2001
From: Stevie Strickland <sstrickl@racket-lang.org>
Date: Thu, 11 Sep 2008 17:36:43 +0000
Subject: [PATCH] Add in nicer version for function definitions.

svn: r11648
---
 collects/scheme/private/contract.ss | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/collects/scheme/private/contract.ss b/collects/scheme/private/contract.ss
index 8f7b02acbe..3e0731a0d4 100644
--- a/collects/scheme/private/contract.ss
+++ b/collects/scheme/private/contract.ss
@@ -60,6 +60,10 @@ improve method arity mismatch contract violation error messages?
      #'(with-contract name
          ([name contract-expr])
          (define name expr))]
+    [(_ (name arg ...) contract body)
+     (identifier? (syntax name))
+     #'(define/contract name contract
+         (lambda (arg ...) body))]
     [(_ name contract-expr expr)
      (raise-syntax-error 'define/contract "expected identifier in first position"
                          define-stx