Fix a small problem in findlib.ml

2017-02-27 08:45:00 +00:00 · 2017-02-27 08:45:00 +00:00 · 595590d9c8
parent ecdbedc03d
commit 595590d9c8
1 changed files with 2 additions and 3 deletions
--- a/src/findlib.ml
+++ b/src/findlib.ml
@ -389,9 +389,8 @@ let find_exn t name =
      | Some (Present x) -> x
      | Some Absent      -> raise (Package_not_found name)
      | None             ->
-        code_errorf
-          "Package %S not in the package table after loading the appropriate META files"
-          name
+        Hashtbl.add t.packages ~key:name ~data:Absent;
+        raise (Package_not_found name)

 let available t name =
  match find_exn t name with