(scm_init_guile_1): Call scm_i_init_discouraged.

diff --git a/libguile/init.c b/libguile/init.c
index 89f47ea..9e09e25 100644 (file)
--- a/libguile/init.c
+++ b/libguile/init.c
@@ -118,6 +118,7 @@
 #include "libguile/weaks.h"
 #include "libguile/guardians.h"
 #include "libguile/extensions.h"
+#include "libguile/discouraged.h"
 #include "libguile/deprecated.h"
 
 #include "libguile/init.h"
@@ -537,6 +538,10 @@ scm_init_guile_1 (SCM_STACKITEM *base)
 
   scm_init_goops ();
 
+#if SCM_ENABLE_DISCOURAGED == 1
+  scm_i_init_discouraged ();
+#endif
+
 #if SCM_ENABLE_DEPRECATED == 1
   scm_i_init_deprecated ();
 #endif