app/src/gambas3/.src/Editor/MCompressFile.module

@@ -271,7 +271,7 @@ Public Sub Javascript(sText As String) As String
               SubstIdent(sIdent)
             Else
               If Right(sRes) = "." Then Goto NO_SUBST
-              If Left(RTrim(Mid$(sText, iPos))) = ":" And InStr(",{", Right(RTrim(sRes))) Then Goto NO_SUBST
+              If Left(RTrim(Mid$(sText, iPos))) = ":" And If InStr(",{", Right(RTrim(sRes))) Then Goto NO_SUBST
             Endif
             
             sSubst = GetSubstIdent(sIdent)

main/share/gb_reserved.h

@@ -65,7 +65,8 @@ enum {
 	RST_AND,
 	RST_NOT,
 	RST_BCLR,
-	RST_MIN
+	RST_MIN,
+	RST_MOD
 };
 
 #define RES_is_operator(value) (COMP_res_info[value].flag & RSF_OP)

main/share/gb_reserved_keyword.h

@@ -190,8 +190,8 @@ COMP_INFO COMP_res_info[] =
 	{ "Xor",          RSF_OP2SM,                OP_XOR,       0,   2,   RST_AND,        C_XOR         },
 	{ "\\",           RSF_OP2S,                 OP_DIV,       0,   6,   T_INTEGER,      C_QUO         },
 	{ "Div",          RSF_OP2S,                 OP_DIV,       0,   6,   T_INTEGER,      C_QUO         },
-	{ "%",            RSF_OP2S,                 OP_MOD,       0,   6,   RST_AND,        C_REM         },
-	{ "Mod",          RSF_OP2S,                 OP_MOD,       0,   6,   RST_AND,        C_REM         },
+	{ "%",            RSF_OP2S,                 OP_MOD,       0,   6,   RST_MOD,        C_REM         },
+	{ "Mod",          RSF_OP2S,                 OP_MOD,       0,   6,   RST_MOD,        C_REM         },
 	{ "Is",           RSF_OP2|RSF_AS|RSF_NOT,   OP_IS,        0,   11,  T_BOOLEAN,      C_IS,   0     },
 	{ "",             RSF_OP2|RSF_AS,           OP_IS,        0,   11,  T_BOOLEAN,      C_IS,   1     },
 	{ "Like",         RSF_OP2S|RSF_NOT,         OP_LIKE,      0,   4,   T_BOOLEAN,      C_LIKE, 0     },