Fixed default object file extension

git-svn-id: https://svn.inf.ethz.ch/svn/lecturers/a2/trunk@8279 8c9fc860-2736-0410-a75d-ab315db34111

source/Loader.Mod

@@ -598,14 +598,19 @@ VAR
 	BEGIN
 		Machine.GetConfig("ObjectFileExtension", extension);
 		IF extension = "" THEN
-			COPY(".Gof", extension)
+			COPY(Machine.DefaultObjectFileExtension, extension)
 		END;
 		Modules.AddLoader(extension, LoadObj); 
 	END Install;
 
 	PROCEDURE Remove*;
+	VAR extension: ARRAY 32 OF CHAR;
 	BEGIN
-		Modules.RemoveLoader(".Gof",LoadObj);
+		Machine.GetConfig("ObjectFileExtension", extension);
+		IF extension = "" THEN
+			COPY(Machine.DefaultObjectFileExtension, extension)
+		END;
+		Modules.RemoveLoader(extension,LoadObj);
 	END Remove;
 
 	BEGIN
@@ -638,4 +643,4 @@ VAR
 		startConcurrentLoad := TRUE;
 	END ConcurrentLoad;
 	*)
-	
+