Typos

lexer.mll

@@ -3,14 +3,14 @@
   exception Unexpected_char of char
 }
 
-let id = [ 'a'-'z' ] ['a'-'z' 'A'-'Z' '_' '0'-'9']* in
+let id = [ 'a'-'z' ] ['a'-'z' 'A'-'Z' '_' '0'-'9']*
 
 rule token = parse
     | [ ' ' '\t' ] { token lexbuf }
     | '\n' { token lexbuf }
     | '.'(id as s)"<=" { UPDATE (s) }
     | '.'(id as s) { SELECT (s) }
-    | '.'(is as s)":=" { FUPD(s) }
+    | '.'(id as s)":=" { FUPD(s) }
     | '[' { LBRACK }
     | ']' { RBRACK }
     | ':' { COLUMN }