Add TOK_BEGIN

This lets us indicate that the lexer succeeded, even on an empty program.
Previous behaviour was to return NULL on failure and on lex success of
an empty progam. Enforcing the presence of a head for the linked token list
ensures that we can reliably detect error as a caller of the lexer.

Fixes test just added in previous commit too.

1 files changed, 2 insertions, 0 deletions

diff --git a/parse.c b/parse.c
index d955bc4..fb7855e 100644
--- a/parse.c
+++ b/parse.c
@@ -131,6 +131,8 @@ parse(const char *fname, FILE *f, struct token *t) {
 	filename = fname;
 	cursor = t;
 
+	EXPECT_AND_DISCARD_CRITICAL(TOK_BEGIN);
+
 	/* Eat leading EOL tokens */
 	while (cursor && cursor->type == TOK_EOL) {
 		kerchunk();