tisp

tiny lisp
git clone git://edryd.org/tisp
Log | Files | Refs | LICENSE

commit 7fb86eeaa1d74a202984e08b93b516a8daf6d77a
parent 04b654ea6a65210c4156225c4e89833afee79b0f
Author: Ed van Bruggen <edvb@uw.edu>
Date:   Mon, 20 Aug 2018 16:45:26 -0700

Free tisp_read input

Diffstat:
main.c | 7++++++-
1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/main.c b/main.c @@ -19,7 +19,9 @@ char *argv0; static Val read_val(Env env, Str cmd) { + char *strf; struct Str str; + Val ret; if (cmd->d) return tisp_read(env, cmd); @@ -28,7 +30,10 @@ read_val(Env env, Str cmd) return NULL; linenoiseHistoryAdd(str.d); - return tisp_read(env, &str); + strf = str.d; + ret = tisp_read(env, &str); + efree(strf); + return ret; } static void