mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-21 20:20:24 +02:00
Code Activity

Fix a segfault when /dev/urandom is not accessible

Browse source 
* libguile/init.c (scm_i_init_guile): Call `scm_init_random' before
`scm_init_macros'.
This commit is contained in:
Giuseppe Scrivano 2012-02-21 15:55:44 +01:00 • committed by Ludovic Courtès
parent 1fa0fde495
commit 3658a3744b
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/init.c
View file

@ -444,7 +444,8 @@ scm_i_init_guile (void *base)
scm_init_ioext (); scm_init_ioext ();
scm_init_keywords (); /* Requires smob_prehistory */ scm_init_keywords (); /* Requires smob_prehistory */
scm_init_list (); scm_init_list ();
scm_init_macros (); /* Requires smob_prehistory */ scm_init_random (); /* Requires smob_prehistory */
scm_init_macros (); /* Requires smob_prehistory and random */
scm_init_mallocs (); /* Requires smob_prehistory */ scm_init_mallocs (); /* Requires smob_prehistory */
scm_init_modules (); /* Requires smob_prehistory */ scm_init_modules (); /* Requires smob_prehistory */
scm_init_numbers (); scm_init_numbers ();
@ -500,7 +501,6 @@ scm_i_init_guile (void *base)
scm_init_eval_in_scheme (); scm_init_eval_in_scheme ();
scm_init_evalext (); scm_init_evalext ();
scm_init_debug (); /* Requires macro smobs */ scm_init_debug (); /* Requires macro smobs */
scm_init_random (); /* Requires smob_prehistory */
scm_init_simpos (); scm_init_simpos ();
#if HAVE_MODULES #if HAVE_MODULES
scm_init_dynamic_linking (); /* Requires smob_prehistory */ scm_init_dynamic_linking (); /* Requires smob_prehistory */