44efc7cb48
fixed scoping of attributes (wrt declare) added 'attribute' form added internal/external literals form svn: r13574
17 lines
634 B
Scheme
17 lines
634 B
Scheme
#lang scheme/base
|
|
(provide wrong-syntax
|
|
current-syntax-context)
|
|
|
|
(define current-syntax-context (make-parameter #f))
|
|
|
|
(define (wrong-syntax stx #:extra [extras null] format-string . args)
|
|
(unless (or (eq? stx #f) (syntax? stx))
|
|
(raise-type-error 'wrong-syntax "syntax or #f" 0 (list* stx format-string args)))
|
|
(let* ([ctx (current-syntax-context)]
|
|
[blame (syntax-property ctx 'report-errors-as)])
|
|
(raise-syntax-error (if (symbol? blame) blame #f)
|
|
(apply format format-string args)
|
|
ctx
|
|
(or stx ctx)
|
|
extras)))
|