From 99eab2d147acfe4e1e16b594023f08b4524bd3db Mon Sep 17 00:00:00 2001
From: Quentin Carbonneaux <quentin.carbonneaux@yale.edu>
Date: Fri, 18 Mar 2016 15:21:17 -0400
Subject: [PATCH] oops, nul terminate string tokens
---
lisc/parse.c | 8 +++++---
1 file changed, 5 insertions(+), 3 deletions(-)
diff --git a/lisc/parse.c b/lisc/parse.c
index bf509d1..7053ba5 100644
--- a/lisc/parse.c
+++ b/lisc/parse.c
@@ -266,10 +266,12 @@ lex()
tokval.str = vnew(0, 1);
for (i=0;; i++) {
c = fgetc(inf);
- if (c == '"')
- if (!i || tokval.str[i-1] != '\\')
- return TStr;
vgrow(&tokval.str, i+1);
+ if (c == '"')
+ if (!i || tokval.str[i-1] != '\\') {
+ tokval.str[i] = 0;
+ return TStr;
+ }
tokval.str[i] = c;
}
}