From 98c083db218c8c15c3874fec0a5fb2cc7f281737 Mon Sep 17 00:00:00 2001
From: Jeremie Dimino <jdimino@janestreet.com>
Date: Tue, 28 Feb 2017 10:37:10 +0000
Subject: [PATCH] Uncomment check for executable names

---
 src/gen_rules.ml | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/src/gen_rules.ml b/src/gen_rules.ml
index d4681a16..7407dfad 100644
--- a/src/gen_rules.ml
+++ b/src/gen_rules.ml
@@ -1231,11 +1231,10 @@ module Gen(P : Params) = struct
       String_map.map modules ~f:(fun (m : Module.t) ->
         { m with obj_name = obj_name_of_basename m.ml_fname })
     in
-(*    List.iter exes.names ~f:(fun name ->
+    List.iter exes.names ~f:(fun name ->
       if not (String_map.mem (String.capitalize name) modules) then
         die "executable %s in %s doesn't have a corresponding .ml file"
           name (Path.to_string dir));
-*)
     let modules =
       pped_modules ~dir ~dep_kind ~modules
         ~preprocess:exes.buildable.preprocess