From 2bd78c176dc638773c527d85160e284bcaf0a5b6 Mon Sep 17 00:00:00 2001
From: Tim Chevalier <chevalier@alum.wellesley.edu>
Date: Thu, 24 Mar 2011 10:37:05 -0700
Subject: [PATCH] Improve error message when the lexer sees a bad character

---
 src/boot/fe/lexer.mll | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/boot/fe/lexer.mll b/src/boot/fe/lexer.mll
index 84aeb9ab114..b84e5906bb9 100644
--- a/src/boot/fe/lexer.mll
+++ b/src/boot/fe/lexer.mll
@@ -297,7 +297,8 @@ rule token = parse
 | '\''                         { char lexbuf                       }
 | '"'                          { let buf = Buffer.create 32 in
                                    str buf lexbuf                  }
-
+| _ as c                       { let s = Char.escaped c in
+                                   fail lexbuf ("Bad character: " ^ s) }
 | eof                          { EOF        }
 
 and str buf = parse