X-Git-Url: http://svarog.pmf.uns.ac.rs/gitweb/?p=mjc2wsl.git;a=blobdiff_plain;f=src-wsl%2Ftransf-exp.wsl;h=8bc0357c4510f13b0605ea5c0691a5604355e7c9;hp=5b1bd1076663f924b6c91736545a735b1b7ed6e7;hb=dd51d4504d3c15dd2c58bf9ece80cd182b02d5d5;hpb=37bd7e6ee3efaa3a310c4cd6ead85cbeda90ca94;ds=sidebyside

diff --git a/src-wsl/transf-exp.wsl b/src-wsl/transf-exp.wsl
index 5b1bd10..8bc0357 100755
--- a/src-wsl/transf-exp.wsl
+++ b/src-wsl/transf-exp.wsl
@@ -40,6 +40,11 @@ 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