From 31310bb228bea38a3c7c54bf68d47dd86706971e Mon Sep 17 00:00:00 2001
From: "Sven M. Hallberg" <pesco@khjk.org>
Date: Sat, 8 Feb 2020 21:30:46 +0100
Subject: [PATCH] remove the TOK() from pnat

this is allowed because 'pnat' now only remains at the beginning of 'npair'
and there
  (a) does not need to consume leading whitespace and
  (b) is explicitly delimited by 'wel'
---
 pdf.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/pdf.c b/pdf.c
index 5c2f49f..26dae6a 100644
--- a/pdf.c
+++ b/pdf.c
@@ -526,7 +526,7 @@ init_parser(struct Env *aux)
 	H_RULE(epsilon,	h_epsilon_p());
 	H_RULE(empty,	SEQ(epsilon));
 	H_ARULE(nat,	TOK(h_many1(digit)));
-	H_ARULE(pnat,	TOK(SEQ(h_many(zero), pdigit, h_many(digit))));
+	H_ARULE(pnat,	SEQ(h_many(zero), pdigit, h_many(digit)));
 	H_RULE(npair,	SEQ(pnat, wel,ws, nat));
 
 #define OPT(X)	CHX(X, epsilon)
-- 
GitLab