浏览代码

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

This reverts commit 8ee14ca6a00673e421ae87a895e614f329d9e44e.
Dan Korostelev 11 年之前
父节点
当前提交
c5b0c649fc
共有 1 个文件被更改,包括 1 次插入1 次删除
  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