diff options
author | Kaz Kylheku <kaz@kylheku.com> | 2015-06-19 09:18:24 -0700 |
---|---|---|
committer | Kaz Kylheku <kaz@kylheku.com> | 2015-06-19 09:18:24 -0700 |
commit | 1081759195124f46fba0028c3583aa878fa72869 (patch) | |
tree | 2ee2f2b4a7522b18c573ab287ec3319310b3eb64 /parser.c | |
parent | 7b0433984c9f672fcde3f7cd39d1cdbd60abb6e7 (diff) | |
download | txr-1081759195124f46fba0028c3583aa878fa72869.tar.gz txr-1081759195124f46fba0028c3583aa878fa72869.tar.bz2 txr-1081759195124f46fba0028c3583aa878fa72869.zip |
* parser.c (parser_mark): Do not mark p->syntax_tree if
its value is nao. Introduced on 2015-06-10, "Error handling improvement
in read".
Diffstat (limited to 'parser.c')
-rw-r--r-- | parser.c | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -59,7 +59,8 @@ static void parser_mark(val obj) gc_mark(p->stream); gc_mark(p->name); gc_mark(p->prepared_msg); - gc_mark(p->syntax_tree); + if (p->syntax_tree != nao) + gc_mark(p->syntax_tree); gc_mark(p->primer); } |