---

catamorphism · graydon · commit 6c4debd50efe · 2011-03-24T12:37:12.000-07:00
yaml --- r: 1839 b: refs/heads/master c: 2bd78c1 h: refs/heads/master i: 1837: ff057d1 1835: 70a8836 1831: fdd012f 1823: 6be98c8 v: v3
diff --git a/[refs] b/[refs]
@@ -1,2 +1,2 @@
 ---
-refs/heads/master: c0f66a52404521ae159ce9e2778eefa5d27a58e0
+refs/heads/master: 2bd78c176dc638773c527d85160e284bcaf0a5b6
diff --git a/trunk/src/boot/fe/lexer.mll b/trunk/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

Original file line number	Diff line number	Diff line change
`@@ -1,2 +1,2 @@`
`1`	`1`	`---`
`2`		`-refs/heads/master: c0f66a52404521ae159ce9e2778eefa5d27a58e0`
	`2`	`+refs/heads/master: 2bd78c176dc638773c527d85160e284bcaf0a5b6`