From f1830966bd82a4547c7f062ba86ee4a7f906b12c Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sat, 25 Apr 2009 16:15:16 +0000 Subject: [PATCH] fix syntax-error message for misuse of identifier bound as code-typesetting variable or element transformer svn: r14611 original commit: 511c2b13b0aef38bbd3ee1a7308bfc54c1a04cac --- collects/scribble/scheme.ss | 20 ++++++++++++++++++-- 1 file changed, 18 insertions(+), 2 deletions(-) diff --git a/collects/scribble/scheme.ss b/collects/scribble/scheme.ss index af05f467..ad95b2bc 100644 --- a/collects/scribble/scheme.ss +++ b/collects/scribble/scheme.ss @@ -606,8 +606,24 @@ (typeset c #t pfx1 pfx sfx #t)) (begin-for-syntax - (define-struct variable-id (sym) #:omit-define-syntaxes) - (define-struct element-id-transformer (proc) #:omit-define-syntaxes)) + (define-struct variable-id (sym) + #:omit-define-syntaxes + #:property prop:procedure (lambda (self stx) + (raise-syntax-error + #f + (string-append + "misuse of an identifier (not in `scheme', etc.) that is" + " bound as a code-typesetting variable") + stx))) + (define-struct element-id-transformer (proc) + #:omit-define-syntaxes + #:property prop:procedure (lambda (self stx) + (raise-syntax-error + #f + (string-append + "misuse of an identifier (not in `scheme', etc.) that is" + " bound as an code-typesetting element transformer") + stx)))) (define-syntax (define-code stx) (syntax-case stx ()