فهرست منبع

fix argument order of sys_env

Simon Krajewski 12 سال پیش
والد
کامیت
a60a6747e3
1فایلهای تغییر یافته به همراه1 افزوده شده و 1 حذف شده
  1. 1 1
      interp.ml

+ 1 - 1
interp.ml

@@ -1705,7 +1705,7 @@ let std_lib =
 				if i < 0 then
 					acc
 				else
-					let e, v = ExtString.String.split "=" env.(i) in
+					let e, v = ExtString.String.split env.(i) "=" in
 					loop (VArray [|VString e;VString v;acc|]) (i - 1)
 			in
 			loop VNull (Array.length env - 1)