Make error messages more consistent.

original commit: 59f5f24736998a027f920d481fdd3c60ccaefb59
This commit is contained in:
Vincent St-Amour 2011-08-15 13:19:59 -04:00
parent 7ecdc4eff3
commit 6f4746ad75

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)])