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

fix syntax-error message for misuse of identifier bound as code-typesetting variable or element transformer

Browse Source 
svn: r14611

original commit: 511c2b13b0aef38bbd3ee1a7308bfc54c1a04cac
This commit is contained in:
Matthew Flatt 2009-04-25 16:15:16 +00:00
parent acc63063e1
commit f1830966bd
1 changed files with 18 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
collects/scribble/scheme.ss
View File

@ -606,8 +606,24 @@
(typeset c #t pfx1 pfx sfx #t)) (typeset c #t pfx1 pfx sfx #t))
(begin-for-syntax (begin-for-syntax
(define-struct variable-id (sym) #:omit-define-syntaxes) (define-struct variable-id (sym)
(define-struct element-id-transformer (proc) #:omit-define-syntaxes)) #: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) (define-syntax (define-code stx)
(syntax-case stx () (syntax-case stx ()