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

syntax-parse: improved error for non-syntax attribute in syntax template

Browse Source
This commit is contained in:
Ryan Culpepper 2010-11-11 14:47:52 -07:00
parent eeb7facdd6
commit a2c4574688
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/syntax/parse/private/runtime.rkt
View File

@ -130,7 +130,11 @@
(raise-syntax-error (raise-syntax-error
#f #f
(format "attribute is bound to non-syntax value: ~e" value) (format "attribute is bound to non-syntax value: ~e" value)
(quote-syntax #,(attribute-mapping-name self))))))))) (quote-syntax #,(or (let loop ([p (syntax-property stx 'disappeared-use)])
(cond [(identifier? p) p]
[(pair? p) (or (loop (car p)) (loop (cdr p)))]
[else #f]))
(attribute-mapping-name self))))))))))
;; check-syntax : nat any -> boolean ;; check-syntax : nat any -> boolean
;; Returns #t if value is a (listof^depth syntax) ;; Returns #t if value is a (listof^depth syntax)