identifiers now are of the form [a-z][a-z0-9]+

diff --git a/src/lexer.rl b/src/lexer.rl
index ad37169..821d742 100644 (file)
--- a/src/lexer.rl
+++ b/src/lexer.rl
@@ -115,7 +115,7 @@ yycstate* apc_cstate;
   SS = ('+SS' %to(push_SS)) | ('+SS' %to(push_SS) link ) ;
   ref = '0x' >set_ts alnum{8} $err(ref_error) %push_ref ;
   val = digit+ >set_ts %push_val ;
-  name = (lower+ >set_ts) %push_name ;
+  name = (lower+ >set_ts) (lower | digit)+  %push_name ;
   map = '+MAP' %to(push_map);
   tok = (name | val | ref | dimensions | map | link | SS | direction);