mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-10 14:00:21 +02:00
Code Activity

* init.c: Include "fluids.h". (scm_boot_guile_1): Added call to

Browse source 
scm_init_fluids to initialize the fluid machine.
(scm_start_stack): Initialize the fluids of the first root with
scm_make_initial_fluids.
This commit is contained in:
Marius Vollmer 1997-07-18 14:33:49 +00:00
parent c487ad44e7
commit ee3ea81d9a
1 changed files with 5 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

6
libguile/init.c
View file

@ -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 ();