Added missing port property printout

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

source/FoxPrintout.Mod

@@ -1158,12 +1158,17 @@ TYPE
 
 			PROCEDURE Flags(x: SyntaxTree.Parameter);
 			VAR first: BOOLEAN;
-		BEGIN
-			first := TRUE;
-				IF x.untraced THEN
-					Flag(Global.NameUntraced,first)
+			BEGIN
+				IF x.modifiers # NIL THEN 
+					Modifiers(x.modifiers) 
+				ELSE
+					first := TRUE;
+					IF x.untraced THEN
+						Flag(Global.NameUntraced,first)
+					END;
+					
+					FlagEnd(first);
 				END;
-				FlagEnd(first);
 			END Flags;
 			
 		BEGIN