clearer ordering and allow trains called "has" (!)

[trains.git] / hostside / record-y.y

diff --git a/hostside/record-y.y b/hostside/record-y.y
index 5ba3d1ce6bf4ba52c5f73f492092048925971955..ff906fc7010db13d99e8e016bac01da434d95c30 100644 (file)
--- a/hostside/record-y.y
+++ b/hostside/record-y.y
@@ -12,7 +12,7 @@
   int num;
 }
 
-%token <name>  TRAIN  SEG IS AT HAS STEP END  IDENT
+%token <name>  TRAIN SEG  IS AT HAS STEP END  IDENT
 %token <name>  NL
 %token <num>   NUM
 
@@ -51,7 +51,7 @@ line:         /* empty */
 backwards:     /* empty */ { return 0; }
        |       '-' { return 1; }
 
-ident:         IDENT | TRAIN | SEG | IS | AT | STEP | END
+ident:         TRAIN | SEG | IS | AT | HAS | STEP | END | IDENT
 
 seg:           ident { $$= record_pname2seg($1); }
 train:         ident { $$= record_pname2train($1); }