diff options
-rw-r--r-- | ChangeLog | 6 | ||||
-rw-r--r-- | parser.c | 3 |
2 files changed, 8 insertions, 1 deletions
@@ -1,3 +1,9 @@ +2015-06-19 Kaz Kylheku <kaz@kylheku.com> + + * 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". + 2015-06-18 Kaz Kylheku <kaz@kylheku.com> * lib.c (mkstring): Fix neglect to null terminate. @@ -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); } |