Преглед изворни кода

bugfix for completion on linux/osx

Nicolas Cannasse пре 13 година
родитељ
комит
4cacd88988
1 измењених фајлова са 1 додато и 1 уклоњено
  1. 1 1
      main.ml

+ 1 - 1
main.ml

@@ -247,7 +247,7 @@ let lookup_classes com spath =
 		| [] -> []
 		| cp :: l ->
 			let cp = (if cp = "" then "./" else cp) in
-			let c =  Extc.get_real_path (Common.unique_full_path (normalize_path cp)) in
+			let c = normalize_path (Extc.get_real_path (Common.unique_full_path cp)) in
 			let clen = String.length c in
 			if clen < String.length spath && String.sub spath 0 clen = c then begin
 				let path = String.sub spath clen (String.length spath - clen) in