mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-28 16:00:22 +02:00
Code Activity

* guile.c: register preloaded modules

Browse source
This commit is contained in:
Marius Vollmer 2000-01-10 00:37:47 +00:00
parent 4feb69af5a
commit 4ed6bae2fc
1 changed files with 10 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

10
libguile/guile.c
View file

@ -48,6 +48,13 @@
#include <libguile.h> #include <libguile.h>
#ifdef HAVE_CONFIG_H
#include <scmconfig.h>
#endif
#ifdef DYNAMIC_LINKING
#include <ltdl.h>
#endif
/* Debugger interface (don't change the order of the following lines) */ /* Debugger interface (don't change the order of the following lines) */
#define GDB_TYPE SCM #define GDB_TYPE SCM
#include <libguile/gdb_interface.h> #include <libguile/gdb_interface.h>
@ -63,6 +70,9 @@ inner_main (void *closure, int argc, char **argv)
int int
main (int argc, char **argv) main (int argc, char **argv)
{ {
#ifdef DYNAMIC_LINKING
LTDL_SET_PRELOADED_SYMBOLS ();
#endif
scm_boot_guile (argc, argv, inner_main, 0); scm_boot_guile (argc, argv, inner_main, 0);
return 0; /* never reached */ return 0; /* never reached */
} }