From ad7976079fbebf9280015d3cfb2db1434ce9d7bd Mon Sep 17 00:00:00 2001
From: Carl Eastlund <cce@racket-lang.org>
Date: Tue, 19 Jan 2010 09:26:42 +0000
Subject: [PATCH] Kept syntax-parse expr/c error message consistent with
 define/contract.

svn: r17750
---
 collects/syntax/private/stxparse/lib.ss | 13 +++++++------
 1 file changed, 7 insertions(+), 6 deletions(-)

diff --git a/collects/syntax/private/stxparse/lib.ss b/collects/syntax/private/stxparse/lib.ss
index 83b580e158..8714e1f9bb 100644
--- a/collects/syntax/private/stxparse/lib.ss
+++ b/collects/syntax/private/stxparse/lib.ss
@@ -109,12 +109,13 @@
 (define-syntax-class (expr/c ctc)
   #:attributes (c)
   (pattern x:expr
-           #:with c #`(contract #,ctc
-                                x
-                                (quote #,(source-location->string #'x))
-                                '<this-macro>
-                                #f
-                                (quote-srcloc x))))
+           #:with
+           c #`(contract #,ctc
+                         x
+                         (quote #,(source-location->string #'x "<<unknown>>"))
+                         '<this-macro>
+                         #f
+                         (quote-srcloc x))))
 
 ;; Literal sets