* filter.c (filters, filter_init): Serious gc bug fixed: neglected to

inform the garbage collector about the filters global variable.
Ouch!

2 files changed, 8 insertions, 0 deletions

diff --git a/ChangeLog b/ChangeLog
index 3f5fb6eb..ac300d0f 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,11 @@
 2011-10-01  Kaz Kylheku  <kaz@kylheku.com>
 
+	* filter.c (filters, filter_init): Serious gc bug fixed: neglected to
+	inform the garbage collector about the filters global variable.
+	Ouch!
+
+2011-10-01  Kaz Kylheku  <kaz@kylheku.com>
+
 	New test case under tests/008.
 
 	* Makefile: Made previous TXR_ARGS for 008 specific
diff --git a/filter.c b/filter.c
index db298da6..bf20cffb 100644
--- a/filter.c
+++ b/filter.c
@@ -542,6 +542,8 @@ val filter_k, to_html_k, from_html_k;
 
 void filter_init(void)
 {
+  protect(&filters, (val *) 0);
+
   filters = make_hash(nil, nil);
   filter_k = intern(lit("filter"), keyword_package);
   to_html_k = intern(lit("to_html"), keyword_package);