experimental transf script, move the flag removal

diff --git a/src-wsl/transf-exp.wsl b/src-wsl/transf-exp.wsl
index 1bffdbd33f7aa2dafbe0163bf1d89747cfb160ef..6e501370613d4eae93347a723f8813a3e7e18da1 100755 (executable)
--- 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, "");