mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-11 06:20:23 +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 * err;
{
SCM root;
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;
/* 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_tables_prehistory ();
scm_init_storage (0);
scm_init_root ();
#ifdef USE_THREADS
scm_init_threads ();
#endif
scm_start_stack (&i, in, out, err);
scm_init_gsubr ();
scm_init_feature ();