From 9dcf3ddceacd7a141917c49a3bb2dd0ab3c23f9b Mon Sep 17 00:00:00 2001
From: "Sven M. Hallberg" <pesco@khjk.org>
Date: Sat, 8 Feb 2020 21:54:21 +0100
Subject: [PATCH] remove the TOK() from 'nat'

this is allowed because 'nat' now appears only at the end of 'npair' and there it
  (a) does not need to consume leading whitespace and
  (b) no longer needs to test for a trailing delimiter
---
 pdf.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/pdf.c b/pdf.c
index 3de0fea..6514f50 100644
--- a/pdf.c
+++ b/pdf.c
@@ -525,7 +525,7 @@ init_parser(struct Env *aux)
 	H_RULE(end,	h_end_p());
 	H_RULE(epsilon,	h_epsilon_p());
 	H_RULE(empty,	SEQ(epsilon));
-	H_ARULE(nat,	TOK(h_many1(digit)));
+	H_ARULE(nat,	h_many1(digit));
 	H_ARULE(pnat,	SEQ(h_many(zero), pdigit, h_many(digit)));
 	H_RULE(npair,	SEQ(pnat, wel,ws, nat));
 
-- 
GitLab