diff options
| author | Marius Vollmer <mvo@zagadka.de> | 2000-01-10 00:37:47 +0000 |
|---|---|---|
| committer | Marius Vollmer <mvo@zagadka.de> | 2000-01-10 00:37:47 +0000 |
| commit | 4ed6bae2fcb1ccb20de478842aa49e5fe7f751f1 (patch) | |
| tree | 96d82eb74d75b7015d9b1793e4b4a2ca9460fffe /libguile/guile.c | |
| parent | 4feb69af5a780a6a7fde68f04bff593364a95fa1 (diff) | |
| download | guile-4ed6bae2fcb1ccb20de478842aa49e5fe7f751f1.tar.gz | |
* guile.c: register preloaded modules
Diffstat (limited to 'libguile/guile.c')
| -rw-r--r-- | libguile/guile.c | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/libguile/guile.c b/libguile/guile.c index b41318ce2..868442377 100644 --- a/libguile/guile.c +++ b/libguile/guile.c @@ -48,6 +48,13 @@ #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) */ #define GDB_TYPE SCM #include <libguile/gdb_interface.h> @@ -63,6 +70,9 @@ inner_main (void *closure, int argc, char **argv) int main (int argc, char **argv) { +#ifdef DYNAMIC_LINKING + LTDL_SET_PRELOADED_SYMBOLS (); +#endif scm_boot_guile (argc, argv, inner_main, 0); return 0; /* never reached */ } |