initialize guile

* src/emacs.c (main): Call `scm_init_guile'.

diff --git a/src/emacs.c b/src/emacs.c
index f8fb016..32c5a32 100644 (file)
--- a/src/emacs.c
+++ b/src/emacs.c
@@ -27,6 +27,7 @@ along with GNU Emacs.  If not, see <http://www.gnu.org/licenses/>.  */
 #include <sys/types.h>
 #include <sys/file.h>
 #include <unistd.h>
+#include <libguile.h>
 
 #include <close-stream.h>
 
@@ -765,6 +766,10 @@ main (int argc, char **argv)
 
   atexit (close_output_streams);
 
+  /* Override Guile's libgc configuration. */
+  xputenv ("GC_ALL_INTERIOR_POINTERS=1");
+  scm_init_guile ();
+
   sort_args (argc, argv);
   argc = 0;
   while (argv[argc]) argc++;