rustboot: If something that wasn't a type was found where a type was expected, report where the error was

2010-11-05 17:30:53 -07:00 · 2010-11-05 17:30:53 -07:00 · 79015e2d59
commit 79015e2d59
parent 35eb088ae3
1 changed files with 1 additions and 1 deletions
--- a/src/boot/me/resolve.ml
+++ b/src/boot/me/resolve.ml
@ -306,7 +306,7 @@ let rec lookup_type_by_name
            | Some (DEFN_ty_param (_, x)) ->
                (Ast.TY_param x, [||])
            | _ ->
-                err None "Found non-type binding for %a"
+                err loc "Found non-type binding for %a"
                  Ast.sprintf_name name
        in
        let args =