From 04defa493767f22c7e9ebd1087dda21cdcf7dbe5 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Fri, 17 Sep 2010 11:49:36 -0500 Subject: [PATCH] closes PR 10779 --- collects/racket/contract/private/base.rkt | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/collects/racket/contract/private/base.rkt b/collects/racket/contract/private/base.rkt index a993853e90..351fd7bc72 100644 --- a/collects/racket/contract/private/base.rkt +++ b/collects/racket/contract/private/base.rkt @@ -13,7 +13,7 @@ improve method arity mismatch contract violation error messages? recursive-contract current-contract-region) -(require (for-syntax racket/base) +(require (for-syntax racket/base syntax/name) racket/stxparam unstable/srcloc unstable/location @@ -30,8 +30,11 @@ improve method arity mismatch contract violation error messages? (syntax/loc stx (apply-contract c v pos neg name loc (current-contract-region)))] [(_ c v pos neg) - (syntax/loc stx - (apply-contract c v pos neg #f (build-source-location #f) (current-contract-region)))] + (with-syntax ([name (syntax-local-infer-name stx)]) + (syntax/loc stx + (apply-contract c v pos neg 'name + (build-source-location #f) + (current-contract-region))))] [(_ c v pos neg src) (raise-syntax-error 'contract (string-append