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

* init.c (scm_start_stack): Call `scm_make_root' to dynamically

Browse source 
allocate the basic dynamic root object.
(scm_boot_guile): Added call to scm_init_root.
This commit is contained in:
Mikael Djurfeldt 1996-10-01 03:18:54 +00:00
parent 42db06f0c0
commit 9ef3d0ee58
1 changed files with 8 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

8
libguile/init.c
View file

@ -124,8 +124,12 @@ scm_start_stack (base, in, out, err)
FILE * out; FILE * out;
FILE * err; FILE * err;
{ {
SCM root;
struct scm_port_table * pt; struct scm_port_table * pt;
root = scm_permanent_object (scm_make_root (SCM_UNDEFINED));
scm_set_root (SCM_ROOT_STATE (root));
scm_stack_base = base; scm_stack_base = base;
/* Create standard ports from stdio files, if requested to do so. /* Create standard ports from stdio files, if requested to do so.
@ -348,6 +352,10 @@ scm_boot_guile (result, argc, argv, in, out, err, init_func, boot_cmd)
scm_smob_prehistory (); scm_smob_prehistory ();
scm_tables_prehistory (); scm_tables_prehistory ();
scm_init_storage (0); scm_init_storage (0);
scm_init_root ();
#ifdef USE_THREADS
scm_init_threads ();
#endif
scm_start_stack (&i, in, out, err); scm_start_stack (&i, in, out, err);
scm_init_gsubr (); scm_init_gsubr ();
scm_init_feature (); scm_init_feature ();