From a7d3641dc2dddba08b2e53bec396071c176d5a58 Mon Sep 17 00:00:00 2001
From: Marius Vollmer <mvo@zagadka.de>
Date: Sat, 5 Oct 2002 13:07:06 +0000
Subject: [PATCH] (root_mark): Mark active_asyncs slot.

---
 libguile/root.c | 1 +
 1 file changed, 1 insertion(+)

diff --git a/libguile/root.c b/libguile/root.c
index 6f7d20297..93405f8a2 100644
--- a/libguile/root.c
+++ b/libguile/root.c
@@ -80,6 +80,7 @@ root_mark (SCM root)
   scm_gc_mark (s->cur_errp);
   /* No need to gc mark def_loadp */
   scm_gc_mark (s->fluids);
+  scm_gc_mark (s->active_asyncs);
   return SCM_ROOT_STATE (root) -> parent;
 }