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