suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source 
svn: r17750
This commit is contained in:
Carl Eastlund 2010-01-19 09:26:42 +00:00
parent 934c775c25
commit ad7976079f
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
collects/syntax/private/stxparse/lib.ss
View File

@ -109,12 +109,13 @@
(define-syntax-class (expr/c ctc) (define-syntax-class (expr/c ctc)
#:attributes (c) #:attributes (c)
(pattern x:expr (pattern x:expr
#:with c #`(contract #,ctc #:with
x c #`(contract #,ctc
(quote #,(source-location->string #'x)) x
'<this-macro> (quote #,(source-location->string #'x "<<unknown>>"))
#f '<this-macro>
(quote-srcloc x)))) #f
(quote-srcloc x))))
;; Literal sets ;; Literal sets