Kept syntax-parse expr/c error message consistent with define/contract.

svn: r17750
2010-01-19 09:26:42 +00:00 · 2010-01-19 09:26:42 +00:00 · ad7976079f
commit ad7976079f
parent 934c775c25
1 changed files with 7 additions and 6 deletions
--- 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