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

syntax/parse: change unbound literal error message

Browse Source
This commit is contained in:
Ryan Culpepper 2010-05-14 16:08:16 -06:00
parent d43792926a
commit 1572b1ece4
2 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/syntax/private/stxparse/runtime.rkt
View File

@ -612,7 +612,9 @@ An Expectation is one of
;; FIXME: change to normal 'error', if src gets stripped away ;; FIXME: change to normal 'error', if src gets stripped away
(define (check-literal id phase ctx) (define (check-literal id phase ctx)
(unless (identifier-binding id phase) (unless (identifier-binding id phase)
(raise-syntax-error #f "unbound identifier not allowed as literal" ctx id))) (raise-syntax-error #f
(format "literal is unbound in phase ~s" phase)
ctx id)))
;; free-identifier=?/phases : id phase-level id phase-level -> boolean ;; free-identifier=?/phases : id phase-level id phase-level -> boolean
;; Determines whether x has the same binding at phase-level phase-x ;; Determines whether x has the same binding at phase-level phase-x

2
collects/syntax/private/stxparse/sc.rkt
View File

@ -163,7 +163,7 @@
(begin-for-syntax/once (begin-for-syntax/once
(for ([x (syntax->list #'(external ...))]) (for ([x (syntax->list #'(external ...))])
(unless (identifier-binding x 0) (unless (identifier-binding x 0)
(raise-syntax-error #f "unbound identifier not allowed as literal" (raise-syntax-error #f "literal is unbound in phase 0"
(quote-syntax #,stx) x))))))))])) (quote-syntax #,stx) x))))))))]))
#| #|