Fixed display of newline in error. Fixes #392.

config.bmx

@@ -169,6 +169,11 @@ Function EscapeString$(str$)
 	Return str
 End Function
 
+Function EscapeLines:String(str:String)
+	str=str.Replace("~n", "Newline")
+	Return str
+End Function
+
 Function BmxEnquote$( str$ )
 	str=str.Replace( "~~","~~~~" )
 	str=str.Replace( "~q","~~q" )

parser.bmx

@@ -526,7 +526,7 @@ Type TParser Extends TGenProcessor
 				If _tokeType = TOKE_KEYWORD Then
 					kw = " keyword"
 				End If
-				Err "Syntax error - expecting identifier, but found" + kw + " '" + _toke + "'"
+				Err "Syntax error - expecting identifier, but found" + kw + " '" + EscapeLines(_toke) + "'"
 			End If
 		End Select
 		Local id$=_toke