closes PR 10779

racket · Sep 17, 2010 · 04defa4 · 04defa4
1 parent ce211ac
commit 04defa4
Showing 1 changed file with 6 additions and 3 deletions.
diff --git 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