X-Git-Url: http://svarog.pmf.uns.ac.rs/gitweb/?p=mjc2wsl.git;a=blobdiff_plain;f=src-wsl%2Ftransf-exp.wsl;h=6e501370613d4eae93347a723f8813a3e7e18da1;hp=1bffdbd33f7aa2dafbe0163bf1d89747cfb160ef;hb=5ec7c0162c03b3229de5dd9bb5264b8f76ff695e;hpb=557b6662e42282252aed642086b066c21d7de1ad

diff --git a/src-wsl/transf-exp.wsl b/src-wsl/transf-exp.wsl
index 1bffdbd..6e50137 100755
--- a/src-wsl/transf-exp.wsl
+++ b/src-wsl/transf-exp.wsl
@@ -45,11 +45,7 @@ MW_PROC @Process_Prog() ==
 			@Delete  
 		FI
 	OD;
-	FOREACH Statement DO
-		IF @Trans?(TR_Flag_Removal) THEN
-			@Trans(TR_Flag_Removal, "");
-		FI
-	OD;
+
 	C:"remove all the comments ";
 	FOREACH Statement DO
 	IF @ST(@I) = T_Comment THEN 
@@ -68,6 +64,11 @@ MW_PROC @Process_Prog() ==
 			@Trans(TR_Floop_To_While, "");
 		FI
 	OD;
+	FOREACH Statement DO
+		IF @Trans?(TR_Flag_Removal) THEN
+			@Trans(TR_Flag_Removal, "");
+		FI
+	OD;
 	C:"Go back to the start, and remove redundant";
 	@GOTO(< >);
 	@Trans(TR_Delete_All_Redundant, "");