Ver código fonte

Revert "return correct path for Sys.executablePath() when in macro (closes #3401)"

This reverts commit 8ee14ca6a00673e421ae87a895e614f329d9e44e.
Dan Korostelev 11 anos atrás
pai
commit
c5b0c649fc
1 arquivos alterados com 1 adições e 1 exclusões
  1. 1 1
      interp.ml

+ 1 - 1
interp.ml

@@ -1738,7 +1738,7 @@ let std_lib =
 			VString (try Extc.get_full_path (vstring file) with _ -> error())
 		);
 		"sys_exe_path", Fun0 (fun() ->
-			VString (Sys.argv.(0))
+			VString (Extc.executable_path())
 		);
 		"sys_env", Fun0 (fun() ->
 			let env = Unix.environment() in