From f309ae3953ae5d4b379fb5cecbe1ff4caf5cd165 Mon Sep 17 00:00:00 2001 From: Hans Oesterholt-Dijkema Date: Sun, 17 Sep 2006 20:55:27 +0000 Subject: [PATCH] * Bug fix in the dynamic loading code of the mzscheme binding git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@9293 626c5289-ae23-0410-ae9c-e8d60b6d4f22 --- SWIG/Lib/mzscheme/mzrun.swg | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/SWIG/Lib/mzscheme/mzrun.swg b/SWIG/Lib/mzscheme/mzrun.swg index 6a71fb79a..3e0c9da65 100644 --- a/SWIG/Lib/mzscheme/mzrun.swg +++ b/SWIG/Lib/mzscheme/mzrun.swg @@ -402,10 +402,11 @@ SWIG_MzScheme_new_scheme_struct (Scheme_Env* env, const char* basename, for(k=0;mz_dynload_libpaths[k]!=NULL && mz_libraries[i]==NULL;k++) { int L=strlen(mz_dynload_libpaths[k])+strlen("\\")+strlen(mz_dlopen_libraries[i])+1; libp=(char *) malloc(L*sizeof(char)); - sprintf(libp,"%s\\%s",mz_dynload_libpaths[k],mz_dlopen_libraries[i]); #ifdef __OS_WIN32 + sprintf(libp,"%s\\%s",mz_dynload_libpaths[k],mz_dlopen_libraries[i]); mz_libraries[i]=(void *) LoadLibrary(libp); #else + sprintf(libp,"%s/%s",mz_dynload_libpaths[k],mz_dlopen_libraries[i]); mz_libraries[i]=(void *) dlopen(libp,RTLD_LAZY); #endif if (mz_dynload_debug) {