From 13843f93ddb4757abeb0b039c84f3f0a0b413db4 Mon Sep 17 00:00:00 2001
From: Jeremie Dimino <jdimino@janestreet.com>
Date: Mon, 22 Jan 2018 13:12:11 +0000
Subject: [PATCH] Fix #436

---
 src/jbuild.ml | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/src/jbuild.ml b/src/jbuild.ml
index c5c16f1d..ef906ad1 100644
--- a/src/jbuild.ml
+++ b/src/jbuild.ml
@@ -974,6 +974,9 @@ module Stanzas = struct
           let include_stack = (loc, file) :: include_stack in
           let dir = Path.parent file in
           let file = Path.relative dir fn in
+          if not (Path.exists file) then
+            Loc.fail loc "File %s doesn't exist."
+              (Path.to_string_maybe_quoted file);
           if List.exists include_stack ~f:(fun (_, f) -> f = file) then
             raise (Include_loop (file, include_stack));
           let sexps = Sexp.load ~fname:(Path.to_string file) ~mode:Many in