mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-18 07:12:26 -08:00
Code Issues Projects Releases Packages Wiki Activity

Close the library before the error handler changes the block.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2008-05-26 21:42:04 +02:00
parent e2e6563b46
commit b50e36e017
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/c/ffi.d
View file

@ -434,8 +434,8 @@ si_load_foreign_module(cl_object filename)
output = ecl_library_open(filename, 0);
if (output->cblock.handle == NULL)
{
output = ecl_library_error(output);
ecl_library_close(output);
output = ecl_library_error(output);
}
OUTPUT:
#ifdef ECL_THREADS