Scheme_Object *
scheme_initialize (Scheme_Env *env)
{
// Seed our random number generator (but only once)
srandom (time (NULL));
// We're using GLib, so we should start with this lovely function.
g_type_init ();
return scheme_reload (env);
} // scheme_initialize
Scheme_Object *
scheme_initialize (Scheme_Env *env)
{
// Seed our random number generator (but only once)
srandom (time (NULL));
// Although g_type_init is deprecated since GLIB 2.36, it seems to be
// needed in the version of GLib we have installed in MathLAN.
LOG ("GLIB %d.%d.%d",
GLIB_MAJOR_VERSION, GLIB_MINOR_VERSION, GLIB_MICRO_VERSION);
if ((GLIB_MAJOR_VERSION == 2) && (GLIB_MINOR_VERSION < 36))
{
g_type_init ();
} // if before 2.36
return scheme_reload (env);
} // scheme_initialize
Scheme_Object *scheme_initialize(Scheme_Env *env)
{
/* First load is same as every load: */
return scheme_reload(env);
}
Scheme_Object *
scheme_initialize (Scheme_Env *env)
{
return scheme_reload (env);
} // scheme_initialize
