#include "getopt-long.hh"
#include "global-ctor.hh"
#include "international.hh"
-#include "lily-guile.hh"
#include "lily-version.hh"
#include "misc.hh"
#include "output-def.hh"
"MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU\n"
"General Public License for more details.\n"
"\n"
- " You should have received a copy (refer to the file COPYING) of the\n"
+ " You should have received a copy of the\n"
"GNU General Public License along with this program; if not, write to\n"
"the Free Software Foundation, Inc., 59 Temple Place - Suite 330,\n"
"Boston, MA 02111-1307, USA.\n");
init_fontconfig ();
init_freetype ();
-
- all_fonts_global = new All_font_metrics (global_path.to_string ());
+ ly_reset_all_fonts ();
if (!init_scheme_variables.empty ()
|| !init_scheme_code_string.empty ())
bool overwrite = true;
if (!yield)
{
- yield = "70";
+ yield = "65";
overwrite = false;
}
sane_putenv ("GUILE_MIN_YIELD_1", yield, overwrite);
sane_putenv ("GUILE_MIN_YIELD_2", yield, overwrite);
sane_putenv ("GUILE_MIN_YIELD_MALLOC", yield, overwrite);
+
+
+ sane_putenv ("GUILE_INIT_SEGMENT_SIZE_1",
+ "10485760", overwrite);
+ sane_putenv ("GUILE_MAX_SEGMENT_SIZE",
+ "104857600", overwrite);
}
void
setup_paths (argv[0]);
setup_guile_env ();
+#if 0
/* Debugging aid. */
try
{
{
error (_f ("exception caught: %s", e.what ()));
};
-
+#else
+ scm_boot_guile (argc, argv, main_with_guile, 0);
+#endif
+
/* Only reachable if GUILE exits. That is an error. */
return 1;
}