Procházet zdrojové kódy

FIX: AddSearchPath

git-svn-id: https://svn.inf.ethz.ch/svn/lecturers/a2/trunk@7302 8c9fc860-2736-0410-a75d-ab315db34111
eth.metacore před 8 roky
rodič
revize
aabdd92bcb
1 změnil soubory, kde provedl 2 přidání a 4 odebrání
  1. 2 4
      source/Files64.Mod

+ 2 - 4
source/Files64.Mod

@@ -1119,10 +1119,8 @@ PROCEDURE AddSearchPath*(context: Commands.Context);
 VAR cmd: ARRAY 32 OF CHAR; msg: ARRAY 256 OF CHAR;  res: LONGINT;
 BEGIN
 	(* preliminary implementation until we know how to solve this generically *)
-	IF Modules.ModuleByName("WinFS") # NIL THEN 
-		cmd := "WinFS.AddSearchPath";
-	ELSIF Modules.ModuleByName("UnixFiles") # NIL THEN 
-		cmd := "UnixFiles.AddSearchPath";
+	IF Modules.ModuleByName("WinFiles64") # NIL THEN 
+		cmd := "WinFiles64.AddSearchPath";
 	END;
 	IF cmd # "" THEN 
 		Commands.Activate(cmd, context, {Commands.Wait}, res, msg);