From f18afbf8aa5374f3bab38d1afc757c92fea2d196 Mon Sep 17 00:00:00 2001
From: Jeremie Dimino <jdimino@janestreet.com>
Date: Wed, 31 May 2017 11:28:39 +0100
Subject: [PATCH] Fix jbuilder exec for windows

---
 bin/main.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/bin/main.ml b/bin/main.ml
index f338a8c5..ec1bee9b 100644
--- a/bin/main.ml
+++ b/bin/main.ml
@@ -775,7 +775,7 @@ let exec =
          let real_prog = Path.to_string real_prog     in
          let env       = Context.env_for_exec context in
          if Sys.win32 then
-           Future.run ~env Strict real_prog (prog :: args)
+           Future.run ~env Strict real_prog args
          else
            Unix.execve real_prog (Array.of_list (prog :: args)) env
       )