+ if (anchor_flag)
+ {
+ tn = mk_Tnode ();
+ tn->pos = CAT;
+ tn->u.p[0] = t2;
+ tn->u.p[1] = t1;
+ t1 = tn;
+ }
+ if (lookahead == L_END && t1)
+ {
+ t2 = mk_Tnode ();
+ t2->pos = ++parse_info->position;
+ t2->u.ch[1] = t2->u.ch[0] = '\n';
+
+ tn = mk_Tnode ();
+ tn->pos = CAT;
+ tn->u.p[0] = t1;
+ tn->u.p[1] = t2;
+ t1 = tn;
+
+ anchor_flag |= 2;
+ lex ();
+ }
+ if (lookahead == 0 && t1)