Make error messages more consistent.

This commit is contained in:
Vincent St-Amour 2011-08-15 13:19:59 -04:00
parent 39459ec9c4
commit 59f5f24736

View File

@ -166,7 +166,7 @@
;; error for unbound variables
(define (lookup-fail e)
(match (identifier-binding e)
['lexical (tc-error/expr "untyped lexical variable ~a" (syntax-e e))]
['lexical (tc-error/expr "untyped identifier ~a" (syntax-e e))]
[#f (tc-error/expr "untyped top-level identifier ~a" (syntax-e e))]
[(list _ _ nominal-source-mod nominal-source-id _ _ _)
(let-values ([(x y) (module-path-index-split nominal-source-mod)])