From ee3ea81d9addcd57531fc20f109f7c8785c05d1b Mon Sep 17 00:00:00 2001
From: Marius Vollmer <mvo@zagadka.de>
Date: Fri, 18 Jul 1997 14:33:49 +0000
Subject: [PATCH] * init.c: Include "fluids.h".  (scm_boot_guile_1): Added call
 to scm_init_fluids to initialize the fluid machine. (scm_start_stack):
 Initialize the fluids of the first root with scm_make_initial_fluids.

---
 libguile/init.c | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/libguile/init.c b/libguile/init.c
index d561f83a7..b5117cce3 100644
--- a/libguile/init.c
+++ b/libguile/init.c
@@ -62,6 +62,7 @@
 #include "eval.h"
 #include "feature.h"
 #include "filesys.h"
+#include "fluids.h"
 #include "fports.h"
 #include "gc.h"
 #include "gdbint.h"
@@ -143,7 +144,9 @@ scm_start_stack (base)
   scm_system_transformer = SCM_BOOL_F;
 
   scm_the_last_stack_var = SCM_BOOL_F;
-  
+
+  scm_root->fluids = scm_make_initial_fluids ();
+
   /* Create an object to hold the root continuation.
    */
   SCM_NEWCELL (scm_rootcont);
@@ -397,6 +400,7 @@ scm_boot_guile_1 (base, closure)
       scm_init_dynwind ();
       scm_init_eq ();
       scm_init_error ();
+      scm_init_fluids ();
       scm_init_fports ();
       scm_init_filesys ();
       scm_init_gc ();