mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-05-20 19:50:24 +02:00
(scm_init_guile_1): Call scm_i_init_deprecated.
This commit is contained in:
parent
c70de3c709
commit
9b31f1c143
1 changed files with 6 additions and 1 deletions
|
@ -143,6 +143,7 @@
|
||||||
#include "libguile/weaks.h"
|
#include "libguile/weaks.h"
|
||||||
#include "libguile/guardians.h"
|
#include "libguile/guardians.h"
|
||||||
#include "libguile/extensions.h"
|
#include "libguile/extensions.h"
|
||||||
|
#include "libguile/deprecated.h"
|
||||||
|
|
||||||
#include "libguile/init.h"
|
#include "libguile/init.h"
|
||||||
|
|
||||||
|
@ -572,6 +573,10 @@ scm_init_guile_1 (SCM_STACKITEM *base)
|
||||||
|
|
||||||
scm_init_goops ();
|
scm_init_goops ();
|
||||||
|
|
||||||
|
#if SCM_ENABLE_DEPRECATED == 1
|
||||||
|
scm_i_init_deprecated ();
|
||||||
|
#endif
|
||||||
|
|
||||||
scm_initialized_p = 1;
|
scm_initialized_p = 1;
|
||||||
|
|
||||||
scm_block_gc = 0; /* permit the gc to run */
|
scm_block_gc = 0; /* permit the gc to run */
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue