mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-15 13:52:16 -08:00
Code Issues Projects Releases Packages Wiki Activity

Small time hack in main.d to prevent hanging in OS X

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2012-07-22 22:12:39 +02:00
parent b06c17717a
commit 13cb83fa3a
1 changed files with 5 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/c/main.d
View file

@ -812,6 +812,11 @@ cl_boot(int argc, char **argv)
if (process != this)
mp_process_join(process);
}
/* FIXME! We need to do this because of a problem in GC
* When the thread exits, sometimes the dyld library gets
* called, and if we call dlopen() at the same time we
* cause ECL to hang */
ecl_musleep(1e-3, 1);
}
#endif
ECL_SET(@'ext::*program-exit-code*', code);