Commit 543c89f3 authored by Kim Nguyễn's avatar Kim Nguyễn
Browse files

Remove a suprious debugging message.

parent a71112e6
......@@ -1002,10 +1002,9 @@ and var env loc s =
| Val _ -> exp loc (Fv.singleton id) (Typed.Var id)
| EVal (cu,id,t) -> exp loc Fv.empty (Typed.ExtVar (cu,id,t))
| _ ->
pp_env Format.err_formatter env;
error loc
(Format.sprintf
"identifier '%s' does not refer to a value"
"Identifier '%s' does not refer to a value"
(Ident.to_string id)))
(MultiEnv.find id env.ids)
with Not_found ->
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment