From 9f0d446ffd82669dc3865408df294869335d3848 Mon Sep 17 00:00:00 2001 From: Ryan Culpepper Date: Wed, 12 May 2010 12:17:10 -0600 Subject: [PATCH] syntax/parse: added details to non-syntax attr error --- collects/syntax/private/stxparse/runtime.rkt | 11 ++++------- 1 file changed, 4 insertions(+), 7 deletions(-) diff --git a/collects/syntax/private/stxparse/runtime.rkt b/collects/syntax/private/stxparse/runtime.rkt index d7fad96a6a..b042b7bced 100644 --- a/collects/syntax/private/stxparse/runtime.rkt +++ b/collects/syntax/private/stxparse/runtime.rkt @@ -439,13 +439,10 @@ An Expectation is one of #`(let ([value #,(attribute-mapping-var self)]) (if (check-syntax '#,(attribute-mapping-depth self) value) value - (raise-syntax-error #f - "attribute is bound to non-syntax value" - (quote-syntax - #,(datum->syntax - stx - (attribute-mapping-name self) - stx))))))))) + (raise-syntax-error + #f + (format "attribute is bound to non-syntax value: ~e" value) + (quote-syntax #,(attribute-mapping-name self))))))))) ;; check-syntax : nat any -> boolean ;; Returns #t if value is a (listof^depth syntax)