[svn] r6442: nemerle/trunk/ncc/parsing/Lexer.n

[nazgul]

Log:
One little fit in CR handling

Author: nazgul
Date: Sun Jul  9 16:19:00 2006
New Revision: 6442

Modified:
   nemerle/trunk/ncc/parsing/Lexer.n

Modified: nemerle/trunk/ncc/parsing/Lexer.n
==============================================================================
--- nemerle/trunk/ncc/parsing/Lexer.n	(original)
+++ nemerle/trunk/ncc/parsing/Lexer.n	Sun Jul  9 16:19:00 2006
@@ -874,7 +874,7 @@
       }
       else
         match (ch) {
-          | ' ' | '\t'  => loop (true);
+          | ' ' | '\t' | '\r' => loop (true);
  
           | '\n' =>
             white_beginning = true;
@@ -1041,7 +1041,7 @@
           if (IsIdBeginning (ch))
             get_id (ch)
           else
-            throw Error ("invalid character")
+            throw Error ($"invalid character: `$ch'")
     }      
   }