From 42be27517c8057733afe2d31b8bf7b98ee6f6578 Mon Sep 17 00:00:00 2001 From: Peter Mikkelsen Date: Tue, 20 Jul 2021 22:07:51 +0000 Subject: Support '' in tokens --- parser.c | 7 +++++++ 1 file changed, 7 insertions(+) (limited to 'parser.c') diff --git a/parser.c b/parser.c index 8b5be46..a2b045e 100644 --- a/parser.c +++ b/parser.c @@ -448,9 +448,16 @@ Integer: if(peek == L'\''){ peek = Bgetrune(parsein); while(peek != L'\''){ +QuotedAtomLoop: buf[i++] = peek; peek = Bgetrune(parsein); } + peek = Bgetrune(parsein); + if(peek == L'\'') + goto QuotedAtomLoop; + else + Bungetrune(parsein); + buf[i] = '\0'; lookahead.tag = AtomTok; lookahead.text = runestrdup(buf); -- cgit v1.2.3