commit | b8fd47158e8f6f599c8a6fb292277da1e4c3e55b | [log] [tgz] |
---|---|---|
author | swissChili <swisschili@fastmail.com> | Wed Jun 23 15:32:04 2021 -0700 |
committer | swissChili <swisschili@fastmail.com> | Wed Jun 23 15:32:04 2021 -0700 |
tree | d99a565f70e4b5502b522df920a416475b9b9716 | |
parent | e9fec8be6c323b9705e807da460c555f202f641e [diff] [blame] |
Add allocation pools, release memory in GC
diff --git a/src/lisp/compiler.dasc b/src/lisp/compiler.dasc index b3cdb9a..bc5aec8 100644 --- a/src/lisp/compiler.dasc +++ b/src/lisp/compiler.dasc
@@ -195,6 +195,9 @@ struct environment compile_all(struct istream *is) { + unsigned char pool = make_pool(); + unsigned char pop = push_pool(pool); + value_t val; struct environment env; env.first = NULL; @@ -205,6 +208,8 @@ compile_tl(val, &env); } + pop_pool(pop); + return env; }