From 8bda62e798c4e89c8c3f9406327899e394f7be0f Mon Sep 17 00:00:00 2001
From: Maxime Dénès <mail@maximedenes.fr>
Date: Tue, 16 Dec 2014 00:06:13 +0100
Subject: Fix for #3154: use CUnix.sys_command to call native compiler.

Patch by CJ on bugzilla. CUnix.sys_command doesn't rely on a shell, so extra
care with cmd.exe vs sh is no longer required.
---
 kernel/nativeconv.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'kernel/nativeconv.ml')

diff --git a/kernel/nativeconv.ml b/kernel/nativeconv.ml
index c7701a8b1..04747cd8b 100644
--- a/kernel/nativeconv.ml
+++ b/kernel/nativeconv.ml
@@ -135,7 +135,7 @@ let native_conv pb sigma env t1 t2 =
   let ml_filename, prefix = get_ml_filename () in
   let code, upds = mk_conv_code penv sigma prefix t1 t2 in
   match compile ml_filename code with
-  | (0,fn) ->
+  | (true, fn) ->
       begin
         if !Flags.debug then Pp.msg_debug (Pp.str "Running test...");
         let t0 = Sys.time () in
-- 
cgit v1.2.3