[plt-scheme] Using a DLL with a extension (mzgtk2)
Fixed it.
adding
#ifdef CODEFRAGMENT_DYNAMIC_LOAD
#pragma export on
#endif
extern Scheme_Object *scheme_reload(Scheme_Env *env) {
Scheme_Env *menv =
scheme_primitive_module(scheme_intern_symbol("mzgtk2_init"), env);
scheme_finish_primitive_module(menv);
return scheme_void;
}
extern Scheme_Object *scheme_initialize(Scheme_Env *env) {
return scheme_reload(env);
}
extern Scheme_Object *scheme_module_name(void) {
return scheme_intern_symbol((char*)"mzgtk2_init");
}
#ifdef CODEFRAGMENT_DYNAMIC_LOAD
#pragma export off
#endif
into the shared library code.
solved my problems so far.
Best whishes,
Hans