Bugfix: prepared_error_message variable needs to be gc-protected.

* parser.h (parse_init): Declared.

* parser.l (parse_init): New function.

* txr.c (main): Call parse_init.
(txr_main): No need to gc-protect yyin_stream since parse_init does it.

1 files changed, 5 insertions, 0 deletions

diff --git a/parser.l b/parser.l
index 08bdfbb3..af6da051 100644
--- a/parser.l
+++ b/parser.l
@@ -589,3 +589,8 @@ void end_of_regex(void)
       || yy_top_state() == QSILIT)
     yy_pop_state();
 }
+
+void parse_init(void)
+{
+  protect(&yyin_stream, &prepared_error_message, (val *) 0);
+}