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

Use orthodox libtoology in `guile'.

Browse source 
* libguile/guile.c (main): Use `LTDL_SET_PRELOADED_SYMBOLS ()' instead
  of our own trick.
This commit is contained in:
Ludovic Courtès 2008-11-24 22:04:44 +01:00
parent 2ae217f418
commit 664d1f5eb2
1 changed files with 2 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

6
libguile/guile.c
View file

@ -1,4 +1,4 @@
/* Copyright (C) 1996,1997,2000,2001, 2006 Free Software Foundation, Inc. /* Copyright (C) 1996,1997,2000,2001, 2006, 2008 Free Software Foundation, Inc.
* *
* This library is free software; you can redistribute it and/or * This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Lesser General Public * modify it under the terms of the GNU Lesser General Public
@ -67,9 +67,7 @@ int
main (int argc, char **argv) main (int argc, char **argv)
{ {
#if !defined (__MINGW32__) #if !defined (__MINGW32__)
/* libtool automagically inserts this variable into your executable... */ LTDL_SET_PRELOADED_SYMBOLS ();
extern const lt_dlsymlist lt_preloaded_symbols[];
lt_dlpreload_default (lt_preloaded_symbols);
#endif #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 */