Infinite loop in the parser fixed

idea/testData/psi/HangOnLonelyModifier.jet

@@ -0,0 +1,3 @@
+fun test() {
+in
+}

idea/testData/psi/HangOnLonelyModifier.txt

@@ -0,0 +1,17 @@
+JetFile: HangOnLonelyModifier.jet
+  NAMESPACE
+    FUN
+      PsiElement(fun)('fun')
+      PsiWhiteSpace(' ')
+      PsiElement(IDENTIFIER)('test')
+      VALUE_PARAMETER_LIST
+        PsiElement(LPAR)('(')
+        PsiElement(RPAR)(')')
+      PsiWhiteSpace(' ')
+      BLOCK
+        PsiElement(LBRACE)('{')
+        PsiWhiteSpace('\n')
+        PsiErrorElement:Expecting a statement
+          PsiElement(in)('in')
+        PsiWhiteSpace('\n')
+        PsiElement(RBRACE)('}')

idea/testData/psi/When_ERR.txt

@@ -155,7 +155,7 @@ JetFile: When_ERR.jet
                 <empty list>
             PsiWhiteSpace('  ')
             PsiElement(DOUBLE_ARROW)('=>')
-            PsiErrorElement:Expecting an element
+            PsiErrorElement:Expecting an expression
               <empty list>
           PsiWhiteSpace(' ')
           PsiElement(SEMICOLON)(';')