summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorPeter Mikkelsen <peter@pmikkelsen.com>2021-07-20 22:07:51 +0000
committerPeter Mikkelsen <peter@pmikkelsen.com>2021-07-20 22:07:51 +0000
commit42be27517c8057733afe2d31b8bf7b98ee6f6578 (patch)
tree06be0605965cf3796467460c68029b93c9d4fa88
parent24cdc7adf5611d536403ae625414bb10f3bc4f93 (diff)
Support '' in tokens
-rw-r--r--parser.c7
1 files changed, 7 insertions, 0 deletions
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);